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SEVERAL OPTIONS ARE AVATLABLE “FUR CUNTROLLING TRE ANALYSIS 
OF A MEMORY DUMPe THEY MAY BE CLASSIFIED INTO FOUR CATEGORIES: 


IT. THOSE WHICH SPECIFY THE FORMAT GF THE PRINTOUT OF MEMORY? 


SPLASH QUMPsOCTAL DUMP» ALPHA/OCTAL DUMPsOR Race DUMP ; 
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_ SPCECIFIC: MIX. INDEX WHERE THE MIX INDEX IS SPECIFIED BY THE USER. 
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Ai PHAB PA bee AND ° R a 
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: Re EASE ESOATACOM) PROCEDURES, 
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2s INCLUSION OF A USER SELECTED "STACK" AREA WHICH THE 
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THE MAJORITY OF OPTIONS MAY SE SET “USING A CUMMON CONTROL 
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COL FUNCTIONS, ee hs Ses e 


“THE DMMON COTROL CARD 1S ASS Med” 0 CONTAIN AN EIGHT DIGIT 
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ANALYSIS). SHOULD MCRE OR LES> STACK BE DESIRED*® THE AMUUNT ooc0dged 
( IN pee? OF STACK 1T0 sila as CaN BE ENTEREL INTG PRT CELL 00000430 
a N = "rN ME —OO0004 35 eee peas et Bare 
IN MOST CASES», THE TOP*UF« mSTACK VALUE USED MAY BE THE SETTING 00000440 
na THE "S" REGISTER TAKEN dit Ene DISPLAY PANEL AT THE vane CO0L0445 
* HARK NiO Per = S a AK, BiALN OO O450 
SRE FROM THE CONTROL STATE Sei “LOCATED IN CELL 7, THE STACK COUU0N4S) 
BEET NED IN THIS MANNER IS GENERALLY OF INTEREST® ESPECIALLY WHEW 00000452 
= 4 N NBRRE D era O oe a ee 
00000455 
ma THE cael 3 DIGITS ARE ge aa andl AS DECIMAL OIGITS 00000460 
: MAJOR | \ R OPTIONS, GENERALLY 3 9oo0d470 
SPEAKING» ESE OPTICKS ARE INTEGRAL POWERS OF es ARE INDEPENDENT o000048C 
OF ONE ANOTHER AND May THEREFORE BE VSED ADDITIVeLY. THAT ISe Oavudgaga 
b Dhulle' \ 8 N N\ . 0 ad M Q y V A hun WE § 2 plOs rcs AND 64 Mo ee QOUQgsOO tara Rants Sui cot Vast Sara eh 
COULO BE INVOKED BY "COMMUN=114"(2+164+32+64), THE EXCEPTIONS 00000510 
TO THIS RULE wILL BE ELABOKATED AFTER EACH COMMON OPTION IS 00000520 
D RPISBED ND f Se OOOO OS 3 icc pcs ay Sal a ate eae eae) 
CUMMON CARO OPTLOUNS 00uU0S40 
00000550 
NO) H K ri 1) am: 0) aed Ota B hens Staph ai en Rh a date oe tin ie I Sata tach gah 
STANDARD MEMORY DUMP ANALYSIS IS QBTAINED *EXCEPI* FOR TRE 00000570 
DIFFERENCES GENERATED BY THAT PARTICULAR OPTION. A "STANDARD" 00000580 
AAA LK OR f N! A rf UIMMO A 0 CLM MCA _ O0000590 pee Ae ee ee Sorte natet we eae, 2 
00O0VU0600 
COMMONSO, ooucdeic 
D A ANDARD ANALYS LS A TSS/PRT_F ILE IS REQAU LRED« DOU G2 ¢ Z c Renan A tee aah De 
00000625 
COMMONS1 5 ; 0000063 
: % Md f hy *? ‘wwe Poet Me MOR fF R " 
REQUIRED. A "COMMENT" PN EEG WHEN THE DUMP TAPE nas CREATED 00000656 
1S ALSO PRINTED, 00000660 
OVOROKGLOY.¥.u. 
COMMONSE2,4 00000670 
NUMPS ALL AVAILABLE AREAS BELGW THE FENCE BUT ONLY THOSE 00000680 
ABL N WHICH ARE CUNTAINEO WITHIN AN ACTIVE JOHS SET ~~ —oo0uds90 
OF CHUNKSe A JOB IS CONSIDERED "ACTLVE™ IF ITS MEMCRY AREA IS OGUUU7TCY 
PRINTED AND ANALYZEY RY THe ANALYZLHe CCOU071IA 
QOGUVW7L5 
COMMONS 3, OGVuu7?ecd 
DUMPS ALL AVAILABLE aoe ABOVE AND HELOW THE FENCE. TRIS 06006730 
MP : Tra ‘al NIJRE A oe INE FENG Tut BE OUMPE OQQUU74C 
EVEN IF PART OF IT [5S NOT met Wer Toe Le aCTive wREAS ARE OGUUU7T5C 
PKINTED IN “SPLASH FURMAT. COOU076E 
OGUV07 645 : 
COMMONS4. OGgdcog77¢c 
EXCLUDES ALL. NORMAL STATE UBVECT CODE, ABOVE ap BELOW TRE 00000780 
oN 4 fy De f PROGRAM SEGMEN ) l DW HA 00000790 
MIX INDEX AND ALL INTRINSIC SEGMENTS WHETHER IN KE ENTRANT USE COULOB0NU 
BELOW THE FENCE OR EXCLUSIVE USE ABLVE THE FENCE. OQgU00810 
a Se i ee GOO OU BTSs ey 
COMMONS8. 00000820 
EXCLUDES ALL MCP. ena CODE EXCEPT. THAT WHICH LIES IN THE 00000830 ; 
RY : fm ho is B UJ Mi OR i a je eter 3 we OOOUIUN BHO 
OQV00845 
COMMON=16, 00000850 
NATE 9 THE DUMPING OF THE UATACOM ARRAYS ASSOCIATED WITH 00000860. 
LINE MAINTENANCE? a orenenener- wae 
é : : 00000875 
COMMONS 32 0: tn ee 00000880 
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009001350 


INHIBITS THE DUMP OF THE mCP PRI IDENTIFIERS SURTED 000U0890 
ALPHABETICALLY AND BY PRT LOCATIUN. o00Uu0900 
(OREN oe I a ee a O00 0005... .. 
COMMON=64, 00000910 
YIELOS AN OCTAL*ONLY OUMP CF MEMORY FORMATTED SIX WORDS/LINE. 00000920 
a TS i Li Na ia BP tah da oR tae ts tet een ss Se it LI OO A i on 
COMMON=128. 00000950 
YIELDS AN ALPHA/CCTAL DUMP OF MUMORYe EACK PRINTED CINE 00uUu0960 
NTAITA WORD -" A W Ei AME +i > 6 g Q7 Q : ss a Ne ne SN Et Sn a 
THEIR ALPHA EQUIVALENT, 00000980 
00000985 
OMMONS FE RRS eS a Ag a ee St BOON OOO... 
YIELDS AN ALPHA DUMP OF MEMURY FORMATTED TwELVE WORDS oo0Uv1000 
OF ALPHA PER PRINTED LINE, 00001010 
COMMONS 384, ee ~ 90001020 
COMPLETELY INHIBITS THE PRINTOUT OF THE CONTENTS OF MEMORY. 00001030 
Em DOs vie fv} ‘ j i, ; feet Ta poe A ase a 
QF MEMORY LINKS IS MACE» THE BED ANU FOKKGUE ARE CKECKED» 00001050 
STACKS ARE LOCATED*ETC. 00001060 
: ee eae ee ee 10010) 1 817 40 RR ee 
Ie 00001072 
COMMONSS 12 aa 00001073 
CIN "KK , H Gat" " : 
LAST VALID WORD POINTED To BY rae THIS INFURMATION IS PRESENT 0001075 
ONLY WHEN AN MCP PATCH sTHE "*ROTU" PATCHs HAS BEEN COMPILED INTO THE 00001076 
hal - OOO ee { ee aD 
iv 00001078 
PRT CELLS WHICH EXERCISE CUNTROL FUNCTIONS 00001080 
Z Sa cc al he ee CI 1 ot a A ee oe ee Sle tt ot 
NOTE: PRT LOCATIONS SPECIFIED REFER TO OCTaL PRY LOCATIONS FOR 000u1090 
USE IN AN “IN® MESSAGE. 00001100 
‘ : 
PRT. 25, 00001120 
THIS CELL 1S NORMALLY SET FROM ue RIGHT eMOST 3 DIGITS WHICH 00001130 
PRE AR ON. .A COMMU ARU a 000 Li 40 soe EES EEE CRT TT 
AND/OR MODIFIED DURING EXECUTION OF THE ANALYZER VIa THE "IN" 0000115u 
MESSAGE. 00001160 
a ee De a ae Ds 
PRT 26, 00001170 
? THIS CELL CAN BE USED TO ENABLE A DUMP*BYeMIX# INDEX, IF SET 00001180 
TO A NON@ZERO DECIMAL NUMBER EQUAL TO THE MIX INDEX OF A OB IN QQ001390 
THE MIX AT THE TIME THE DUMP IT5 JAKiENs IT WILL CAUSE MEMORY AREAS 000U1200 
BELONGING TO OTHER mIX INDEXES TU BE EXCLUDED FRUM THE ANALYSIS, 000U1210 
NOTE THAT IF JHE CONTENTS OF THI 5 CELL DUES NOT CORRESPOND TO A 00001220 
VakIn MIX INDEX» #NO« NORMAL STATE STACKS WILL BE DUMPED NOR 0Q001230 
WILL ANY: NORMAL STATE AREAS ASSOCIATED WITH ANY” MIX ENDEX BE 00001246 ‘ 
PR, NTE Ds: 00001250 eee ares soe SS aS Nt Rae eet A lt 
90001255 
PRT 27, 00001260 
. A EO GK N_CUN CTION WITH TH 00001270 
“PREVIOUSLY DESCRIBED COMMON CARD CONVENTION oF. SPECIFYING AN 00001280 
oer STACK Ae OrESs AS THE FIRST 5. O1GITS ball THE. COMMON: VALUES 00001290 
he poe NON®@ RO - THEA 5 r) IMA ‘RED. IN ' Ao00 0 
WILL. DETERMINE. THE AMGUNT OF STACK DUMPED SELON THE TOP*OF@STACK 00001310 
VALUE. IF LEFT ZERQ@» THE DEFAULT AMQUNT OF STACK GUMPEDCAND 00001320 
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TO BE DOUBLE@SPACED. UTHERWISEs THE PRINTQUT 15 SINGLE@SPACED. 00001360 
00001370 rd] 
PRE DENCE C ' INS AND u = 1N wha OMBINING CM a OOYG13IBO Sood ito BAS ad He ENE. on ee 
00001390 
AS STATED EARLIER» COMMON UPTIONS MAY BE USED SEPARATELY 00001400 @ 
ORIN OMBINA 0} A; THOUGH M IMBINATIONS ARE ALLOWED HER oooovoiaio as nse 9 3 
ARE IMPORTANT EXCEPTIUNS. THE RULES ARES 00001420 
le A COMMON VALUE OF 14 PRECLUDES: THE USE (OF ALL OTHERS. 00001436 @ 
A OMMOR a Oe - 
COMMON VALUES EXCEPT FOR 16 AND 326 NOTE TRAT 384 IS THE 000V1450 
SUM OF. 128+856, 00001460 @ 
HER A CLM Mit K A as ~ (i ‘ 2 " y eee 
MAY BE USED. IT 1S FERHAPS S{MPLESI TO THINK or 3 aS AN ADDITIVE 00001480 
OPTION JUST AS THOUGH IT WERE AN EVEN POWER OF 2. FOR EXAMPLES 00001490 @ 
OMMON210C B+ OR 7 a+: 5 AL ID 8B NO OMMON= eet as OO OPS OO: oh Stl et SB ee 
C845),CIN THIS LAST CASES Tre 5 WOULD BE ENTIRELY IGNOREO RESULTING 00001510 
IN ONLY THE EFFECTS OF THE 8). 000uU1520 ® 
OME LUN p Op. 0001530 | hi tee ed dD aa Teor Ses NN Soe fhe as seek 
ADUITIVE IN ALL POSSIBLE CUMBINATIONS, 00001540 
00001550 e 
SOME SP IOEXAMPLES UF UUMMCAN eT [Qa ____________.... ..00Uu1560 RRS te eae ae eee 
00001565 
A. beeline ae 00001570 @ 
A "STACK" AT 35721 70 BE DUMPFD ALONG WITW pgdui5aO. 
OTHER STACKSS NONE OF MEMORY 19 PRINTEDC 384)» THe mCP PRT 00001590 
IDENTIFIERS ARE NOT FPRINTED(C 32)» ANU THE GATACOM ARRAYS ARE 00001600 @ 
NOT DUMPEDC 16 THIS CUMBINATION MIGHT BE USED TQ PROVIDE A Ber 105250) Coy 80 pe ee ee Ae ie ee Oe eee eee eee ee y 
MINIMUM OF OUTPUT AFTER A MEMORY DUMP HAS BEEN ONCE ANALYZED BUT 00001620 
AFTERWARDS FOUND TO KAVE a MISSED A STACKCIN THIS CaASEs 00001630 . © 
BTEO NEAR SAO ORE So) 550 2 Mg act Sa ee OOOO TOA ee Se 7 
B. "COMMONS12", 00001650 ‘ 
THIS ELIMINATES ALL OBJECT CODE FROM THE PRINTOUT OF 00001660 ‘@ 
MEMORY RELOW TH N AND ali NURMaL STATE CODE IN aReaS 000670 os See ee ee 
ABOVE THE FENCE. 00001680 ! 
Cy Bt coast 00061690  @ 
2 al AC LVE AVALI ADLE AREAS ARE ALWAY PRINTFD(2) OO001700 eh a A hd “eo 
AND PROVIDES THAT MEMCRY 1S PRINTED IN OCTAL FORMAT ONLY(64). 00001710 
De “COMMONS24", 00001730 @ 
0 RW RY 26 StU Ju A VALI MIX INDEX REDUCES = tinct Shi st ra host : 
TRE AMOUNT OF OUTPUT CBTAINED DURING A MIX*ONLY DUMP. NU 00001750 
MCP CODE IS PRINTED LEAVING ONLY NOW*MCP CODE AREAS BESIDES 00001760 e 
HO RELA N 0 H M DEA 8 N DUMP Als a eFeLers 0 siachos tise) na e 
DATACOM TABLES ARE OVITTED(16)- FINALLY» TRE ONLY NURMAL 00001780 , 
STATE STACK DUMPED IS THE UNE oELONGANG TO THE PARTICULAR MIX 00001790 @ 
N Q ROO __ . 2 rH 
00001900 48, 
PROCESSING MULTIFILE OUMP TAPES’ 00003000 .@ 
THE ANALYZER WILL AUTOMATICALLY PROCESS» IN A GIVEN RUN® ALL FILES 00003010 bs 
ON A "DOPMT" TAPE IF LABEL EQUATION IS MADE TO ANY FILE BEYOND THE 00003020 um 
FIRST ONE THE ORDER OF ANALYSIS 15 OPPOSITE THAT OF CREATION, FOR 00003030 guests a 
EXAMPLEs IF LABEL EQUATION IS MADE TU THE FOURTH FILE» "FILE. MDUMPS 00003040 a 
ys Pe HEA antitae a THE FOURTH FILE IS FIRST ANALYZED» THE THERD eee 00003050 \@ 
JSECOND. & AT ONE AND ; FIR F PROCESS 0 00003060 | nel ne iy 
hy FILE IS BEGUN» A MESSAGE IS WRITTEN TO THE CUNSULE so “THAT. THE RUN 00003070 fs 
MAY BE DISCONTINUED IF NO FURTHER FILES ARE 10 BE ANALYZED. 00003080 A®@ 
é 090003090 _ ete Nets ts wil 
A COMMON VALUE MAY BE INCLUDED IN THE COMMENT PORTION OF THE 00003100 oe 
REMARKS ENTERED AFTER A aida COMMAND OR® AETER perina IN il UNE 00003110 ad 
LWA ES tk MEM ALR M HE SYNTAX: Li) Oe t< COMMOR 00003120 ae, 
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» WHERE "COMMON" MAY BE ABBREVIATED AS "COM" ANG MUST BEGIN NU LATER 00003130 
THAN THE 140"TH CHARACTER UF THE ere: A COMMON vAree ENTERED IN 00003140 
MANNER 1 a AN f N O0 é eae A SPP IP ee ETT oY oT 
ONE EXAMPLE Ist "DPMT CUMMONS 363 ALk “JOBS ere es ASLEEP. * 00003460 
00003170 
BF GIA FS a he i ee OOOO RON a, ee ee 
BOOLEAN COMS %&% MUST BE FIRST DECLARED 00003900 
INTEGER PRT263 DEFINE ONEMIXSPRT2Z683 FOR UUMPING ONLY ne JOB 00004000 
PRT 273 NE MYSTACKSIZE=PKI O73 0 B ACKADR 00005000 ei oe Pst 
BOOLEAN. PRT303; DEFINE OGUBLESPACESPRT 3083 P DBL*SPACE OUMP OF MEMORY 00006000 
BOOLEAN. PRT313% RFE 00007000 
BOOLEAN PR ; D FOR DERUG go en ers ot ee OO UU BOO O.. 
COMMENT DEFINES. RELATING TO COMMON CARD OPTIONS; 00009000 
DEFINE COMMON=REALCCCM 81 45% 1=SPLASh DUMP » NG AVAEY SIS 00010000 
DEFINE DUMPAVAT| SCOMel46!1)#3% 2sOUNP ACT AVAL MOR _ 00914000 he A eae Oe 
DEFINE DUMPALLAVAILZREAL (COM), (463215 385% eae ALT AVAILABLE MEMORY 00912000 
DEFINE NONORMALCODESCOM+L4511 183% 4sDONT OUMP TYPE te7.0R 13 CODE 00013000 
DEFINE NOMCPCONDF=sCOM oi,]#3% BsDONT DUMP MCP CUODE¢TYPESsitsMixso) so T cixs 
DEFINE NOTABLES=COM.L43%13#3% 16=D0NT DUMP SELECTED aRRaYS 00015000 
DEFINE DONTOUMPRT=COM.(4231)]43% 322U0NT DUMP PRT 00016000 
DEF A DUMP O Ai ONL Y=C6 Silas 24 0 = OND DNA 0) ONLY M eS DEST a Fett SS ett ay 
DEFINE DUMPALPHAOCTAL=COM, Ceotijes2% l2gsOumMP MEMORY IN ALPHA/UCTAL 00018000 
‘DEFINE DUMPALPHAONLYSCOM, CS9TLIES iar MEMORY IN ALPHA ONLY 00019000 
i) Ai NO DUMP = R zx 3A 4 elle DEM (J MF MER : OO oXateze ate 
DEFINE DUMP CESSPOOLOAL Ye cOM, L3881]#3 % 512s DUMP ONLY THe “ARGH ARRAY 00020400 
00021000 
rn . " e nppTn 0): N002 O0 = sgh ah Ee 
FILE: IN MDUMP 22053393 % DISK#533>5 TAPESS La 3 00021110 
FILE SPO. 11151093 oe 00021120 . 
Soc eA UES OPO OES 0 900 5°26 Ex is" eet veRO Ce ce eo SO eee ee Oe eee TE a 
PROCEDURE PRINTCOMMONVALUESS - 00021140 
BEGIN Yu 00021150 
: —OOUZI160 
eurren CET Te COMINF Oss ~ ; 000211470 
CA 77 NTHE COMMON VALUES AVAILABLE ARE PRZIS e 00021186 
“OMMONeD LoS A ANDARD MEMORY DUMP: y Nit: ANaALYSYS,")» 00021190 Be ern 
C*COMMON®1 YIELOS A SPLASH DUMP WITH NO ANALYS1Se")> 00021200 
C"COMMONS2 PRINTS AVAILABLE AREAS,")» 00021210 
" M Ns PRINTS AVA ABLE A EAS _ INC LING INACT ITy—E AREAS ABOVE ™, 00021212 ee Se SOT 
"THE FENCE, ">> 00021215 
ChCOMMONSS OMITS oe STATE. cube SEGMENTS ©") >, 4 . 00021220 
bid OMMONeS A gh. 4) ee oe 
C"COMMON=46 OMITS. SUNPING THE “DATACOM ARRAYS ASSOCIATED WITH LINE "200021240 
"MAINTENANCE"), 00021245 
“COMMON®32 QMITS THE P TING 
. ChCOMMONES4 “CAUSES MEMORY TO BE PRINTED ENTIRELY IN. OCTAL e+") >» coce2t260 
e cOCOMMON™ 126 CAUSES See 70 BE PRINTEQ. Bee IN.. ALPHA/OCTAL ")s00021270 
SCOMMONS 5 MOR PRINTED: PHA, tt 000 BO oe 
(*CcOMMON= 384 CAUSES NONE OF THE CONTENTS OF MEMCRY TO. BE PRINTEDe"2 200021290 
C"COMMON@512 DISPLAYS THE CONTENTS QF THE ARGH. ARRAYe"/)> 00021300 
("FOR ADDITIONAL INFORMA N THE FIRS RA " 000; 0 


R Itmo step 1 UNTIL 14 00 WRITE CPACOMINFOCTDIS 00021330 
ibe 3 VT COMMOA unc BG as ; OO.0 OQ... 
FORMAT FINIC4g(nen),” END OF TSDUMP ANALYZE TTETESy, 00023000 
INTEGER. MYSTACKADR3 00023100 
BOOLEAN AOQTOGsMYSTACKDUMPED3 0002 0 
EXMAXSRACTUAL MIXMAX. IS sda bebe ona FM: MOTHER: VECTOR 00024000 

elisha ale eth ag 00025000 
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DEFINE PRTBASE=1294#3%FSRKST PRT CELL ALLOCATED BY ESPOL 00027000 
DEFINE ACTUALPRTBASESs wer 4 FIRST PRT CELL AS PER MCP DEFINE 00028000 
DE IK PR MAX=BOHS | R M S ARRA 
DEFINE INFOMAX24xPRTSMAX43#; 00029100 
ee LEVEL» SUBLEVEL » VERSIONS 00030000 
DE N p f _ MMINE ST) OA EF SPO : pas SE 
INTEGER NAMESIZE®NAMSSIZES 00032000 
BET ANE peel eae ee aa NAME CNSNAME 11 .(8% 10J)#3 00033000 
: O00 44000 
DEF INE TSNAMECISNAME 1 J=INAMELISNAMELJ< C8t1034;3 00035000 
ARRAY SEGZERO(LOs2913 00036000 
ROU Ai Mi e pg "RM INE Ab A Milf) Les WeRe INCLUDED = n0037000 y Pade 
STREAM PROCEDURE MOVEC(CSsDsW)3 VALUE W?} 00038000 
BEGIN SI3sSs DIs203 CSts Ww WOS + EWD MOVES 009039000 
PROCEDURE BUSTCOMMONS Sie aaa tae Atte alae eh Re eee eh oebet Feet 1a ta aay 04; RAEN Ree esr aes Eee Se 
BEGIN 00042510 
REAL MY *D3 00042520 
ARRA 030 SI nS a a i Ss a OO Se tere tre seh ew tt ae Bees ete 
FORMAT FCMSM eo TSa "eX 7 )3 00042540 
REAL STREAM PROCECURE GCTDEC(C): VALUE C3 00042550 
BEGIN Sleto > 0D a b #80 E Ni ees 25 Bi A tte Be Notte ene att Ata Mi 
BOOLEAN STREAM PROCEDURE NOTSOCTADES(C)3 VALUE C3 00042570 
oe BEGIN SleLoc Cs SCIF SC GTR "7 THEN BEGIN TALLY@74 JUMP QUT 00042575 
ND *Si+1)3 NOTSOCTADES+eTALLY EN 00042580 cece ee es 
STREAM PROCEOURE DECOCTCO-01202)4 VALUE D3 00042590 
BEGIN SIeLOC OF DIleOLspSeSUCTJDI e025; 0Se30CT ENDS 00042600 
IF NOTSOCTADESCD+NCTNECCCOM)ITHEN O.L1329]¢03 00942620 
NECOCTCDeMY, COM) 3 060042630 
PMY SO rok i ACKADRe* O Ga 0 had eyed 
BEGIN % CONVERT FIRST 5 DIGIIS GF COM aS IF THEY WERE OCTAL DIGITS 00042650 
WRITECTC¥J F&F oMY)5 Secon. 
READ * STACKADR 680 ieee Tine Sashes, 
ENO? poousens 
END BUSTCOMMON3 00042690 
PRE NURE REANARRA RL 7E SWAN BASES ee 
VALUE WORDSIZE» BASES” OGQ440Cc0 
INTEGER BORO ORAOES 00045000 
ARR A ANAM es OO UUSBONO -- BT 8 FF Te 
BEGIN 00047000 
INTEGER Ts seals 00048000 
‘ A : O11: 00 9000 : os 
SVeNORDSIOE MOD 30% 00050000 
BE Gee wenUetetege DIV 303 00051000 
FOR 1120 STEP 1 UNTIL SEGS DO 00053000 
BEGIN a 00054000 ~ 
: RE ADCDISKs 30.8 #1); “ aw B§O00 Ft Pi Se oa 
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DEF INE GETIOLOC(GETIOLOCAGETIOLAC es GETIDLOC3,GETIDLOCA)s 00355000 
= ore HOOD 
FILL I0C*]) wITH GETIDLGC1,GETIDLOC2»GETIDLOC33 00357000 
TABLELOCKUPCIO»GETIDLUCG); 00356000 
NE} y () 6 evere 
PRUCEDURE FIXDEFINES; 00360000 
BEGIy COMMENT RG GUE GUO ISOS IG IIIS ISIS IO UG iii inem 00361000 
THIS PROcenURE JS RESPONSI FUR FINDING THE PRT LOCATION OF a 00302000 
IDENTIFIER DEFINEO IN *"PRTS" FOR wHICH THERE I5 A CORRE SPONDING 00303000 
ENTRY IN "INFO", IT pOES THIS BY CALLING "TABLELOOKUP”™ TO 00364000 
PERFORM. A NEAR SEARCH OF "NAMES" TO TE ANI TIFIER I 00365000 
"NAMS"™ AND COMPARE IT WITH THE UNE GIVEN IN "InNtO"™, IF AN 00366000 
IDENTIFIER CAN NOT BE LOCATED IN "NAMS*s> THE npRTsm ELEMENT IS 00367000 
F NCHANGED==QTHERWI SE ME ADDRESS OSTAINED I STORED 00368000 
ea NBRISU a AMAA A RANNH RENAN HERA A TSAR NAAR OEE EAE AEE EH EHD 00369000 
: TNTEeee prhecs 00370000 
ae G REAM PROCEDURE IOLENGTHC ADS 00371000 
aan “LOCAL L# STesloc Ls Ulsan3 00372000 
3C1F 8SC=O0c THEN JUMP OUT ELSE BEGIN TALLYS=TALLY+13 00373000 
t2,.0C END OLENGTHS=TA 3 00374000 
oe END IDLENGHTH ox eres 00375000 
TLLINFOS” s : 00376000 
R Lis0 STEP a UNT INFOMAX DQ...” y es OO 377OOO 
IF chOGtsTOLENSTRCINROCTA) 1a6 THEN ELSE. BEGIN. 00378000 
MOVECINFOCII,1000153)4 KLASSt=INFOLI+3)4 00379000 
_TABLELQOKUPCID*LOC)3 _ : 00380000 
: Splaea mieieeg LOC GTR. O THEN LOC ELSE PRTSCI1/4] END; . 00381000 
iQ) - Se eae 00382000 


@ a cial ee eed ® @ 
WRITECPo<"PRISL"p{3e"J= “pla4>eTePRTISCII)3 00384000 
@ WRITECPCPAGE)) ENDS 00364100 'e 
WW ¢ NG DEFINES? tt SA a ed et St heey te 
BOULEAN STREAM PROCEDURE BITON(W2B)3 00414000 ‘| 
@ VALUE B3 00415000 ‘|e 
BEFGTA ee ee Q00416000 aa nn eee ; 
SIt=W3SKIP B SBS 00417000 
@ IF SB THEN TALLYts13 00418000 @ 
B Nias i Se OOD. 
END OF BITON3 00420000 
r PROCEDURE NEXTITEMS 00421000 e 
A hy pe Se SS It SOO BON OG... ee aoe ee 6 
WRITECP)3 00423060 
ee) WRITECPCOBLJ»STARS)3 00424000 e 
PND G o¥a 006 Be a a ee Set ee eet OA aa Se 
PROCEDURE PRINTMCPOPTIONSS 00426000 
e|" BEGIN 00427000 e 
~ PEO Mi (* © tes I") be i ¥ ioe Ree See cote SMa Oh Re 
FOR Tts9oi Os Oela2r3ob4elaetce2e1lr6e798 OU 00429000 ; 
eo” IF BITONCMCP>47=1) THEN WRITECPoMCPOPTLII 00430000 @ 
PDE Set-OOC 3000-2. ae 
END OF PRINTMCPOPTIONS: 00432000 
eo” REAL DATE sCLOCKsXCLOCK3 00433000 ©@ 
BOO AN ARR 4s MODGNE ¢ ; 994369009--—— es epee ee eeetar en ; 
INTEGER ARRAY [TOf0#9)3 ‘ 00437000 
er ARRAY RTOCO:533 00438000 -@ 
‘ D N MEANALY7ZED sss TOO, st ee eens Soiree hurts tet ar 
DATEANALYZED = ITDL1)#, 00440000 
@” TIMETAKEN = 1TDC2)#» 00441000 @ 
i i, = ‘ Oe ees it 
pe TREC ASAE = JTINL4J#, 00443000 nt 
@? SINCSLASTHL = ITOL5)#, 00444000 “@ 
SECONDS = ITDL7]#> 00446000 _—~- = 
@ DAYS = ITOC8]4> 00447000 6 
3 AR TEAS BOO ene eer ar 
a f DEFINE DATX = RTDLOI#> 00449000 
[oF XCLOCX = KTOCL]a, 00450000 @ 
ae | OC x lea ra Oa oe lk re 
= TEMP = RTDL3)]#s 00452000 
er KINDS = KTOL4I#, 00453000 © 
; MCPVERSION = RTOCS]#3 00454000 pee a 
a FORMAT OUT FMXXC("CATE ANALYZED "sl2s"/"s]29"/"ole/ 00455000 
@ "TIME ey AEYZED “eT oot" s Toate "solo ds 00456000 e 
ty A ON NUMBER Q049 7 Q00 = oe at tee | 
' WDATE TAKEN “sT2s"/"%s Lae" /%s L2/ 00458000 “ 
@ + "TIME TAKEN MeTDeME4 eI 2e"EM el 2)5 00459000 @ 
; MARK X mu x! TON Ny Mis NSALsA* 00460000 ees Peis 
"DATE TAKEN oT2e"/ sr L2e"/e12 / 004601000 
®@ "TIME TAKEN “sT2e"3",Loe"s"s1 2) 00462000 »@ 
8 " M ! | A 5 HA = AD " pte wy a” t tr) r () ri 3) 3000 at ae ne ee - 7 aa 
SYSIDC"OUMP TAMEN ON SYSTEM "sAt)> 00463100 : 
Or FTAPOSKCAS," FILE CONTAINING DUMP IS "rALe ROOM ALD 6D» 00863110 «@ 
ig FOCOMVAL. " “OMMON: r 00 cee My 
; FANAL CPANALYZER THC YER 00403150 ed 
@: FELANKS(X120)4 00463200 @ 
i x3 ME , 223 00464000 ___ 2 Bee eeree <i 
i =" BORMAT BADBED( ttaxtweeeaw BAD BED ENTRY knee h ee) 5S 00465000 “@ 
\ is FORMAT BADDATE ("BAD DATE TAKEN gesegt)o. 00466000 i 
. BAD CL ACK CM BAD _M MAKEN yy gy 10467000 pe i Sinl tB aa 
r e @ 
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BADCLOCKC("BAD TIME OF H/L")3 00468000 
FORMAT BADCELL3C"WURD 3 HAS THE FLAG 811 ONseveo")3 00469000 e 
RO DUR WHEN» HR i ; Q DO ne sah eR ere As ‘ 
REAL WHEN? INTEGER SEC»MINDHRSS 00471000 
BEGIN 00472000 @ 
IF WHEN LSS 0 OR WHEN GTR 5164000 THEN HRS!=MIN@=SEC?=100 ZOVERFLONW 00474000 _ a , 
ELSE BEGIN TtaWHEns 00475000 @ 
R = A OO G OI Oe oe ey ey 
MINt®T a 3600 Mae 603 00477000 e 
SECI=T DIV 60 MOD 60; END: 00478000 
ND OCEDURES wa Re ei er Needs SU a 
PROCEDURE DA TECEADATE, WONTESD MIS VEANDD 00440000 
VALUE ADATE; 06461000 @ 
INTEGER MONTHDAYeYEAR 3 00483000 
BEGIN 00484000 e@ 
REA he M SE a a a I de OO EES ODO et ; 
LABEL ON 00486000 
ARRAY DAYTABLE [0i11)3 00487000 @ 
REAM ROCEOURE ON \ rAK A iy 00488000 Sites: De ge - 
VALUE DAT 3 00489000 
BEGIN 00490000 & 
= ife ny Aste Heat cote ts se ate a AM cine Mere Sk IBY OO da eesti has ch hit SB eietn. | 
SI t= SI +33 00492000 
DI t= YEAR} 0S t= 2 OCT 00493000 '@ 
RS A Se STS at es ONAN ONO: Fier 8 eae | 
ENDS 00495000 : 
FILL DAYTABLE [#) WITH 00496000 .@ 
0934559,90,120 g 2,243, 04,334 00497000 —————eseseses—is ae 4 
CONV CYsDeADATE)S 00498000 ab 
IF (CY MQD 4)50) AND CY#0) THEN 00499000 @ 
BEGIN a a acer ee Se ee te eo ONO One eat ne og ce tte sae 
IF D 560 THEN 00501000 
BEGIN 00502000 @ 
M $s Oo. TO QA 0503 En ear te e haa hy : 
END} 00504000 
IF D > 60 THEN DtSDWi3 005050U0 @ 
ND 3 24 ee a ons Be a 
"FOR M t= 0 STEP 1 UNTIL 11 DO 00507000 
UF QAYTABLE [} GEQ D THEN GO Tu ON: 00508000 '@ 
AN a an IE «1-101 1-1, 
MONTH t= M3 00510000 ! 
IF M30 THEN 0350 ELSE %GU AHEAU 00511000 @ 
DAY %= D = DA ABLELMe Ig 903842000 pM atest on Taree ne meet igi 
YEAR t#Y3 00513000 ; 
END OF PROSEDURE DATES — 00514000 »@ 
PROCEDURE GE M oO TIMES) A ae j 00915000 ee ae 
REAL XCLOCKSINTEGER ARRAY ITIMESLO}J ALPHA ARRAY ATIMESLOI]3 00316000 a 
BEGIN. & RETURN HEMisseOTHS IN ELS | u~3 OF ITIMESCBINARY) & ATIMESCBCL) 00947000 @ 
| ; See OG UO OO eee a ee ee w 
ae STREAM PROCEDURE CONVERTIME SCITINE SPATINES)? 00519000 ; 
| BEGIN SItsITIMES 01% AT INES 34(0S1#8DEC)END; 00520000 i@ 
moe 00521000 : Fo Tena tank. hs ae er 
ITIMESLOJ##T DIV 2160003 00522000 is 
ITIMES(13%sT DIV 3600 MOD 603 00523000 1@ 
MES t=T D 60 MOD 60 00324000 tana tone thei ails eet obey 
ITIMES(3}¢"T MOD 603 | 00525000 bs 
CONVERTINES( 1TIMESC 41» ATINESE#1)3 | 00526000 '@ 
neg OTE IN CALL ON GETIM RR Ad 00527000 : Ju oe 
rd] 


@ 6 @ 
END OF GETIMESS 00528000 
e INTEGER MAXMOD»MAXCORS 00229000 @ 
. R TABLESIUC: = SE A) OO i et er ee ee a 
; BOOLEAN LNKSOK sAVALNKOK sSOMOKF » SUMQKB3 00531000 
eo; x UTILITY PROCEDURES 00561000 1@ 
A PR 0) .| banca eo Pee ft Ae : 
4 VALUE N3 % 00503000 : 
e@|: INTEGER N32 00584000 @ 
° si 0 A LN \ f A PWR 0.00 ae . 
i % OCTAL IF PRINTED USING 0 FORMAT» OR A FORMAT FOR FEWER OCTADESOOS68006 
ee! % WILL BE THE OCTAL REPRESENTATION OF N 00567000 @ 
9 ‘ AL iz : HEN 0 4 . 293 > oy ee 
ey REAL STREAM PROCEDURE CHRSCATsSKIPPINGeMANY) 3 065609000 
ee." VALUE SKIPPING»MANY3 % 00570000  ] 
nl %&_RETURNI 7 OR OVESS “CHRG REQUIRE Det in ere hs ee OCB PI 000. wn he 
BEGIN 00572000 
@ |: SItsATs STtsS]+SKIPPINGS 00573000 @ 
5 DItSLNC CHRS$ DSt=h LIT"O"S UItSDI=MANYS 00974000 senate ete 
‘6 DS2=MANY CHR3 00575000 
@.” END CHRS3 00576000 '@ 
to N R PROCEDURE HlHa~ we OO OT TO OG ees oe a oe er tee elect Me 
9 . VALUE LOC3 00578000 : 
e” INTEGER LOCs x 00579000 @ 
’ HIHALF 3sCHR MEL OCaROWLOCeCOLI,0,4)3  —SSS ROPE § Tob 1-10 01 01/c DARRGe ee en eee ee . 
INTEGER PROCEDURE LOHALFCLOC)3 # 00561000 
@” VALUE Loc 00582000 @ 
RE SOI re on ee an ge See Cen 1 3 0c gee eT ee 
P LOWALF tmCHRSCMCLOCROW>LOCeCOL]e4 4s % 00584000 
ee” BOOLEAN STREAM PROCEDURE FLGBIT(WORD)3 00585000 @ 
SIt=WORDS % 00587000 | 
@* IF SB THEN TALLY#=15 3% 00588000 @ 
(30 R = h ra A isin Sin Sh Siena ve, aes 1 : 
END FLGBITs % 00590000 Z 
gor BOOLEAN EBOCEDURE POATADESCCAT»swHAT)5 00391000 d 
3 A RAT? REAL WHATS ss FORWARDG sie oe 
ei ARRAY THISROWsLASTRUNWCO! 11)5 % 00543000 
3@F SAVE ARKAY ALINELO?18]3 00544000 @ 
2 36 A R R A B N 0 H g Pe eh Sr os, Q Q 5 y 4 1 0 Q als a eas 
mai BOULEAN NOTPRINTCALL3 ; 00594500 | 
@ = BOOLEAN AVALNKS 00594600 ] 
; BOO Ah AM PROCEDURE OMPARE WORUS Drews oleh 000 Beret Se ta hE: : 
i) VALUE W3 00596000 ‘i 
e BEGIN 00597000 @ 
“SttsSs01t=D3 00399000 ew 4 
@ * WCF 8 SC NE@ DC THEN JUMP OUT 10 x1T)s 00600000 @ 
ai ec ES a ee a ee er oe OOP NOOSA ee eee a re 
; UT ICONPRREWORDS VET ALLY: 00602000 
@ END COMPARING WORDS; 00603000 @ 
: eee \ta 
i DEFINE PRINTCPRINTi»PRINT2)SIF NODUMP THEN ELSE 00603900 e 
i PRINTCORE(PRINT1»PRINT2) #32 00603910 r 
3 - ms NOGBO Om s ae elles 
p PROCEDURE PRINTCGRECFRUMsTOO)S 00604000 @ 
i VALUE FROMsTCOS % 00605000 53 
. BEGIN & 00607000 M, 
@- ____ OEFINE FORI = FOR I t= 0 STEP 1 UNTIL 21 DOs 4 00608000 @ 
R NEF OCTANE = S333 RES ; FSB. TH OS se Se 00609000 ee See oe 
® e@ °@ 
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a OQUBLESPACE’ THEN: 


00658000 


OCSt2RESET»SKIP SR))4 : 00610000 
STREAM PROCEDURE BUILOCFROMsLINE »XAsNASXBsNBoNCoALsAQ)3 & 00611000 
A ROM NA NE 2 a) A QO 9 000 ener ee ae 
BEGIN DIS=LJNEZSIB=LUC FRUMSSLé2S14+53SK1P 35883 00613000 
5 OCTADES 0S s* LIT " ae AUC S$] ts KAS be 00614000 
g = Li Ad =z ft We H H es ee 004315000 a: 
NBCOSs=LIT” "ZS2COS2ISLIT" 38 OCTADE))S 00616000 
NCCOSts19L IT" "3 OSt=LIT" ")3 & 00617000 
A SX¥AZNACDS2= ww sDSst§s8 CHR), £« ie ee OOO LB OO om. 
STtsxBsNBcOSseLIT™ “3OStes CHRIS & 006419000 
NCCOS$a9L ITS aa opaia y WIT ™ "33 END BUILD; ‘ 006¢€0000 
AM PRO DUR M PsAiD eBRsOSiza i mas 
STREAM PROCEDURE EXPARDCALINE» BLINE» N)3 VALUE NB 006021500 
BEGIN DISsHLINES aecOSsssLlT" ")3 YLSsBLINEs Dlsepl+73 00621510 
- SALINE Slissleli : : : Seana 
NC2C06 OCTADES OI tsDI+1)3 Slessgiet)s 00621530 
END EXPAND? 00621540 
bt ff) AN wk: K “sLASTe STARDS 004622000 
INTEGER IyRs STARCOUNTS 00623000 
jonriee AL» AQ INTEGER 2ypZ13 % 00624000 
AB Ni O¢ ; A 
IF DUMPAEPRAGNEY. THEN ALS#TRUE ELSE 00624500 
IF DUMPALPHAOQCTAL THEN = ie doa ELSE 00624600 
NOT DUMP O Al ON * 006; O00 
IF CIS: sAREATYPELIF NOTPRINTCALL THEN VLINKTYFE ELSE 00625000 
i hp GTR Q AND AVALNK THEN ELSE 00626000 
( i Ai A = rt O06 2g7O000 
IF Is2 THEN AQtSTRUE3 00627500 
ZiteCZs=IF AL THEN 12 ELSE lF ALs=Aa0 THEN 4 ELSE 6d"); 00628000 
eae ies REN ACLS Df GARI OOO 
AQ?=A0 AND TRUES ALS3=AL AND TRUES & 00630000 
STARCOUNTI2{F 2312 THEN 114 ELSE IF 256 THEN 120 ELSE 1193 00631000 
RS TRUE | : 00632000 
TOOtsTO0,(327216)3 FROMSSFROM.(32%16)3 00633000 
IF TOO>FROM THEN % ; 00634000 
eg O06: orere = 
BEGIN &% : 00636000 
IF NOT LAST 3:2 C€TUGQ = FROM GEO 2) THEN 4 NOT LAST LINE 006037000 
BEGIN as ee OOO HBO 0G: 
IF FIRST THEN ‘ 00639000 
BEGIN : 00640000 
UF ROM.~ROWws(FROM+ ROW TN MOVECMEFROM, RU AS 64 
ELSE % 00642000 
FORT MVOMECFROM+1) -ROws CF RUM+1 1 e COLI» 00643000 
: ROW 3 00644090 
STARDISFALSE3 00645000 
IF 2212 TEN GO EDITLINE: 00645500 
O06 4600 0 
END 00647000 
ELSE 00648000 
- 00649000 
FF ROW. ROW=CrROMeZ RON THEN MOVECMLF ROMs AGRAE ROMS COLT +THISROWs Z) 00650000. 
ae oe 00651000 | 
ORI M CFROM+]),ROWs CF ROMS eCOL D> 00652000 
THISROWECII); 00653000 
IF (MATCHES SCOMPAREWORDSC(THISROWLOJ,LASTROW(COJ22)) & 00654000 
AND nan STARD THEN 00635000 
BEGIN 00656000 
00657000 
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WRITECPs3TARZ#*STARCOUNTI3 00639900 
STAROs=TKUES 00660000 
~Nue OOG8o10O0 tt Ot os ga | 
IF NCT -MATCH THEN 00602000 
BEGIN 00663000 
STARD 32 = = 
MOVECTHISROWsLASINGOWs2)5 & 00665000 
ENDS 00666000 
NID ON0667000 Bie Ne as 
ENDs% IF NOT LAST 00668000 
If LAST OR 00669000 
NA : OR eee Sate oe) OO OP OOO! — nae ee 
NOT later THEN 00671000 
BEGIN 00672000 
R = MINC2ZsTOO*FROM)S & 00673000 
IFCFROM+#R) ROW NEQ FROM,ROW THEN &% CRUSS ROW paene 00674000 


= J ROL f MA ROM L4 a near: a 


MUCFROMGR) ,RUWs 0)» (FRUM4R) « COLeIF R LSS Zz THEN % 00676000 
gt ELSE OrAL»AU) ELSE % STILL IN SAME ROW OF M ARRAY 00677000 
ROM A N * M R eROweF ROM a [aenaramrenet ans i See ee gl ra ee tN ae OS 
MEOQOsOl]sOe1F R LSS Z THEN Z*R ELSE Or AL* AG)3 x 00679000 
LF Z=12 THEN IF FIRST THEN 00679500 
FIRST2=sFALSE3 00679540 
EXPAND CALINEs BLINE*2+RE AL CAVALNK))3 00679550 
WR Pros __ 00679580 aie Seti Ms Bee 2 §, 
END} 00679620 
TF eS lias THEN WRITECPCOBL I +18 eALTNEC «I]) ELSE 00680000 
Ei \' NOD eYarea! ia ec ota he 
END} & 00682000 
END UNTIL (FROM ts FROM + 2) GEG TOO 3% 00683000 
AR Ps 2 NO068400 
END PRINTCORE3 00685000 
00685004 
ORMA : wos 0 es Sisestacear ONO A Oe tee iets ety ee Se oe a et eet, y 
ARRAY LINELOt14]3 00647000 
DEFINE DISPLAYOBL=DISFLAY4» 00687500 
DISPLAYSGECDISPLAYSGLI*NISPLAYSGL22= KF ZO 
BEGIN SGLTOGtsTRUES DISPLAYCDISPLAYSGL1LsDISPLAYSGL2)3 00687540 
SGLTOG2=FALSES 00687560 
PFND#> omens 
PROCEDURE DISPLAYITCWHATs RANGE s ADR) 3 00688000 
ae WHAT » RANGE» ADR: 00688500 
fA DRS 00689000 a th to ete par 
BOOLEAN RANGES 00689500 
BEGIN 00690000 
: R bt . OOG9 OQ ee 2 
BOOLEAN PP3 00691000 
Tt=IF PP&s(ADR=0) THEN WHAT ELSE ADR; 00691500 
_IF_ NOY PP THEN IF PDATA ESCCT H) AND Hel6#10 -@ 0 THEN ELSE 00692000 = 
RANGES ®FALS&3 - 00692500 
WRETECLINEC #3. ITEMP>OCTALCT Ia 00693000 
re AL CHS SHIA foe 00693500 ga Esehce tale 
OCTALCL2=LOHALF(T))» 00694000 
IF RANGE THEN UCTALCH.C32210)+L eCF"1) 00694500 
ELSE " "5 00695000 _ So, . 
IF L29<WHAT. AND WHATSPRIMAX THEN 00695500 
00696000 


OE EE RANE EY ee ee Ee 
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IF SGLTCG THEN WRITECP217eLINEC*J) ELSE 00697000 
IF PP THEN 00697500 
WR P{DB Na a weet) OO 8 8 ee gs ee a ns 
ENO OISPLAYIT3 : 00698500 
DEFINE DISPLAYCDISPLAY1, DISPLAY2Z)= 00699000 
6 i IPI A¥1e+0T5PLA¥ 200 )83 = . OO0699500 RRA amR ORT es Ea See ah Hoe tg ye ot 
BOOLEAN PROCEDURE OQPERANDCATe#WHAT)S VALUE ATS 00703050 
INTEGER ATS REAL WHAT 3 FURWARD} 00703075 
PRO DURE DUMPRE HO R OO7U 3400 ete se Beate tea be A NN Mate h 52 
BEGIN 00703410 
BOOLEAN YsBUNG; 00703120 
ARRAY ACO311]3 00703140 
LABEL FND3 00703150 
ORMAT BADDY("THE RESULTHOLOER IS MESSED UP." )e = ER PSR Sart nee tea aa eee AE ee OT 
HEADC™ 1/0 DESCRIPTOR "*#XSe" RES DESCRIPTOR “sxae 00703170 
= STATRSLELST I eh ter LANG TAREE CSRS enGr  TU/BURET Ys 00703180 
NTRCN REN Ys ALJ Mar ea ee eA PO aI SOLS OTST nee SEM ice nc aero eaeeIROST OT 8 Ya 13 Kc Ke 10 ee a ET 
STREAM PROCEDURE BLCA)3 00703200 
BEGIN 00703210 
r) eA? ) g ” ¢ ) i 00 Z QO 3220 : eau 
END3 00703230 
GEE INE BUMP I = Lis all wc aD AND BOOLEANCSIZ)) #3 00703240 
M R D hs R O00 0 a _ 
BEGIN 00703260 
STtstac AS DI%sc3 00703270 
Q Le) Reu- : ¢= 2 =i) ] m3 E celta he , 
Osta FILLSDISSaAsOStaL TT “/"; 00703290 
DSts2 OECIOLseDle25;0St=el FILLS 00703300 
ENS : 0703340 ca a i ie Fe ee tite ne 
LLAVABLAEARVALALLELALALALLEALLLLLS 00703320 
IF LASTRESULT406 AND RESULTHOLDERZ) THEN 00703330 
PDATADESCCR HOLDER,R) AND QOPERAWOCLASTRESUL ToL) THEN = =00703340 
BEGIN. 00703350 
DISPLAY CRESULTHCLUER» TRUE?) 00703370 
WRITE CPCOBLJ]>RKEAN)3 00703390 
SIZtsR,(C8tl0)-13 00703400 
Ri=eR CFS eee 00703410 ee eee 
FOR I?=0 STEP 41 UNTIL SIZ DY 00703420 
IF OPERANDCR41I,9) AND HERE AR ENGT FALSE)) TREN BEGIN 00703430 
BUMPI3 GO FNDs ENDS 00703440 ee . 
Lt=L3 00703450 
DO BUMPI UNTIL 00703460 
OPERAND(I+R,y) ANU REALCBOULEANCY) EQ 00703470 are eee aR 
BOOLEANC"™XQOOO" a"4" (384583) SREALCNOT FALSE) OR ye} 00703480 
FND? : 00703499 
BLA: Sess Sheen eccene Ot OS BOO aaah ed re eat eA lee eee Os le an 
DO BEGIN 00703510 
BUNG?sleL3 00703520 
OPERA LS +h AND J tS)="p" [HEN 00/70 aeee 
WRITE CPCDBLIJ*sINTR) ELSE : 00703540 
IF..¥ THEN poets : . 00703550 
YteFALSE;3 00703570 
AL3)I=0CTALCHIHALF(K))3 00703580 
AL4JS=QCTALCLOHALF(A))3 00703590 _ 
FUBUCU C984 eV LIGth le ALLA) 3 00703600 
: IF BUNG THEN ELSE epee 
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BUMPI3 BUNGS=15L3 00703630 
WES EBC TACHI AEE iy z=l¢k))3 00703640 
= b OH A ; SEeORTRE oY OW OG YU 15 eee e ee ee ee een 
IF SUNG THEN ELSE 00703660 
_ BEGIN 00703670 
BUMP AUN = eee 01 OW a OB. <0. 00 ae eee te 2 
ALCGSIJSS=QCTALCKIHALFCK&8S1+R) 23 00703690 
ACLOJSS=OCTALCLUHALF(K))3 00703700 
iB PLDBijJeiteAfwjJ ii : a 
BLCA)s 00703720 
END 00703730 
END a a OE Og Pa ei cd, 
END ELSE 00703750 
BEGIN 00703760 
ALOJSsOCTALCHIHALFCK))3 = 00703780 — 
ACLIPSOCTALCLOHALF (CK) 23 00703790 
ND 3 ae PO 58 BO = ao ste ete ele 
BUMPI3 00703810 
END UNTIL Bone? °00703820 
wR PLDR * H _ i eee, ees Aue 
END ELSE WRITECP, BADDY): 00703840 
ENDS 00703850 
PROCEDURE DUMPARRAYCPRILOC)3 VA PRILOC? __oofu4s4ooan Ban ee eee 
BEGIN % PROVIDES OCTAL DUMP OF AN ARRAY 00705000 
INTEGER LOC+SIZE3 00706000 
ORMA Sees ee 01S 441 0\ 6k ¢ ee ea a ee PERN er eee 
FOCK2sT4eX202(09X1))38 00708000 
DISPLAYCPRTLOCs TRUE D3 00708500 
PR 0 ae 29 AN Pf ‘ RIM 2p pete ee OO POG OO Ot: i tr 
IF PDOATADESCC(PRILCCesLOC) THEN 00710000 
IF SIZEt=_LOcel8i1¢C) NEQ- QO THEN 00711000 
ts a fT zZ Sasa ae tar ar ne a 
BEGIN 00713000 
FOR sO STEP 1 UNTIL SIZE*1 OC 00717000 
aa! 7 u h nin A 1e () ee 2 SOOT TRO 0G: na ee ee eaten 
WRITE CPCOBL))> 00/19000 
ENO: 00720000 
NU DP -ARRAY3 I a es ee ne a ee er ee OOM eh OO! he hen = we wn ee a SS 
PROCEDURE DUMPCESSPOGL; oo7etol1o0 
BEGIN 00721015 
FORMA DROVWD25@AANSARNORMAL"/"D24"RR SREA Oo721090 nee et eee 
"HO23"BFLABUFFER FINAL LOCATLUN", 00721091 
taelewR =WRITE READY"/™C20"8BSY=BUSY™S 00721092 
"NiBeNTREDTCU NUT READY" = 7¢ Satire: 
Pig "NOTES BSY ANDO NTRZADAPTER/SOTTU NOT READY"///)53 00721094 
Tponeet WHATFILE ("CORE PORTION OF SEPTIC s/s Ale AG 4/)3 00? 21095 
a ROMs BOD AN 3 GCORSPTO0. ew os ne te ee a 
FILE SEPTIC DISK SERIAL (2e60eMYUSES Input?) 00721110 
DEFINE BUMP] = Tt=I+l#) 00721120 
, \ \ P= INE Co Q07 é 1 12 5 ae este aa, Be 
ARRAY CCasNAMCO33)3 00721130 
cBERAY WSTATUSEG1CGI) 00721135 
STREAM pAnCEOUR: PUTLSTATUSCSTAT*LINED? 00721145 ee 
BEGIN SISsSTATs DIseLINEs VSis=2 WOS END PUTLSTATUS3 00741146 
M PROCEDURE INITCA)3 OE i es 
BEGIN. DYTteaAs DS8s32 LIT 00721160 
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BEGIN INTEGER 7 Js 


STREAM PROCEDUKE FLLCArBeCoDeE)3 VALUE BoCrD3 
vlt=e3 S1tsa; 


BEGIN Dlt=ks 15¢0pS!sALJT™ ");5 
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DIseNI 913 OStsOL IT" "5 
IF SB TREN DS: 
OLtsO0l +3, 

B THE 
DItsD1 +33 


IF SB TREN OSts3LIT"BFL™ ELSE Dl 'sDI +33 


Dish — 
SKIP SBs4IGNORE 22 
IF a ine) OSs 


IF 58 THEN DSts3LIT"asY" ELSE DItsD1¢33 SKIP SB3 “3020 


DitePI+33 
KIP SAE & NLR N19 
IF SB TREN DSts3LIT"NTR" ELSE DI ss01+33 
END iow 
EDUR pe - AB REA i AY C¢ 


STREAM eee Dee FFCA»B)3 


wR*t 


5 N o 


a(OSt=2 DES OStsulT "F"); 
DIs=0I- 13 OS2=53 LIT" "3 
ND os 
FOR ries STEP 71 UNTIL O DO 
BEGIN CCCIJ%tsus=A MOD 60; 


=A D O0 
END} 
FFCCCeLINEC71)3 
M3 
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BEGIN SItsaj IF sca" " THEN TALLY e213 
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END GLUNK3S 
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PRUCEDURE MmM(B,I)s VALUE Bs REAL Iod; 


STREAM PROCEDURE MOVECA*B)) 
BEGIN SIisaA3 Ol:s83 


nSis non 


ELSE USt=ChR); 
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@ Pie f 


IF SCs"e" THEN DSt=CHR 


, END MOVES 
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MOVECINTSPCBUNPT1> LINE CCI); 
WRITECPOBsLINEL #25 


LEE BELERELELALALLXZASTART 
FILL LSTATUSE*) WITH 


WR N wt " OO? 21554 ws Yoda anette 2 
wPOLLING ", id “, 00721552 
ELECTING» "G ", 00721553 
WA OACT ANG tan " OOF 4 
WNAKING te” ", 00721555 
“ACKING®E 2 "NG ", 00721556 
"NN AK N - 2 NG " 00721557 
WWRITE®RE"S"ADY=BUSY", wea ‘ 00721558 
, mIDLE er ", 00721559 
A FePoi” " , Ad 


S3LIT"ABN” ELSE DJ %=D1+3;3 


BLIT"WR " ELSE OLlssbl+ 33 


SKIP SBi 


* 
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SKIP SB3 
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00721320 
00721330 


007€1350 
00721360 


007213890 
00721390 
00721400 
00721410 
00741420 
O07, 0 
00721440 
00721450 


00721470 
00721480 


00721500. 
00721510 
00721520 
00721530 
00721540 
00721545 | 


00721548 
00721550 
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"WAITING "er" ", 00721564 
MWAITTINGS "ss "ENG ", 00721562 
0 Op, Pinca SREP: leé le ioe os Ss 
! Os O» 00721564 
‘ 0» QO» 00741565 
3 0) 0 00 é 6 ee oes 
4 “NORMAL w,t , 007241567 
WEIRSTST Is "ME "5 00721568 
6 " mA’ " WE a pp a ed ee OOTP TS AG =~... ee 
: WENQ*READ'» ", 00721570 
i "BROKEN fst ") 00721571 
$ MPOLL@TIM%s TE = bl be Be ee ee ete ae OO ee ee oe es ho 
ay “TIMED*OUNS"T ", 00721573 
a "EOT*READ' »* "y 00721574 
N2 WREAD@REA™s"DY@ABN %, Re Sea OTS 0 10 Ae? (= Wy Ac ee Rr ee 
"  WMESSAGE*"s"ANSWER "ty 00721576 
by O» O» 00721577 
7 Os e i PI SRR edt ae 7 Oe ae ae A PT 
. Os Os 00721579 
q Os Os 00721580 
a fa Q Carmenere 012 AP: OL i (eres met See enee ire ce a ae R Re ae EeR 
f "DISCONNE"s "CT "5 00721582 
cr INIT TONAM) 3. 00721586 
OPE RAND 0 h j j rie. fh eee! < Ae oe RET ad ih ool, 
IF PD ATADESC(ARGh> FROM) AND FROM {8810]2128 THEN 00721590 
IF OPERANDCCFROMtsFROMeCF) 412721) THEN LOS=TRUE 00721600 
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oO To. EO A TEE ae eS By a OOF OT Bee oo 
WRITECPOEPAGEI); 00721611 
is Dee eA abe C6:6J)]e1)>5 00721612 
P r) lar EP Eee 
- WRITECP*HDR)3 00721614 
P GO EOu? Bs VOID THIS CARD Me DUMP SEPTIC DISK FILE 00721615 
i A Hts OOf 214620 BAA a Doe 
P WHILE 7 Do 00721630 
: BEGIN READ (SEPTIC, 60» INTSPL#1)(EQUI5 1:=03 00721640 
< f) r) ry I oe ot Mn eal on a 5 ee heen 
P IF CB&sINTSPLIJ).C929)]20 THEN GO TO EOYs 00721660 
i Seated: C7:2J]56, a 4lebe CLMEAIsBel2LiieisLIners 00721670 
F Preis O07 ¢1AB0 ae pe ha Mice ae ee 
P BUTLSTATUSE( STATUS Lexi NT SPLIT. C13:S5])e_INEC10])3 00721685 
: A eee Tec Gl vere de 00721690 
: I orev ar O0 Ge td tO 
i BEGIN WHILE BH GTR mh vO 00721710 
BEGIN MMM(14e1)3 Biszumlas ENDS 00721720 
MMM (By T)3 eee 110 Pc i (seen ee 
ENDS 00721740 
WRITE CRE 00721750 
OOF OF Oa a 
IF ELUNKCINT EP EAUND EAD THEN ELSE GO TO LOUP} 00721770 
ENDS 00721780 
O N OO07217 90 Ree SY ee 
BEGIN CLOSE(SEPTICDS LOtsFALSEs 00721800 
P TES DRERANO CF ROMS 12541) AND. LoONEO.O THEN 00721810 
PERBAND(CFROM+6297T) AND (350 OR [864) THEN 00721820 — 
P BEGIN FROMt=FRUM4] 3 00721830 
‘ If (Bts5le*(RISFROM. CulL)) LSS CI##60) THEN 00721840 
P4 iG M E ROM~ROWsK Jo IN Ppfids ‘a cries 
‘ RisOs y?s60" 83 FROME ROM+603 00721860 
pe END ELSE Bts0% _ 00721870 
yl MOV MEERO RIJS INTSP OO721LAAD 


VALS VULUITIGHLO/ MIL, 


B : E oS 53 Tr = Ss. x. 53 


Vai tt 


END; 


BEG] 


END 


eo °® 
1:=03 GC TO LOOP; 00721890 
ENDS END; 00721900 ] 
DURE DUMP DARRAYSS ie i eek acts. oe ens GIO POO Deter = Serie ee 
N : 00723000 
IF NOTABLES THEN ELSE 00723100 @ 
ia GR egal NSA I Ma Ri Pe AO pS EN ls ees oe, 2 
WRITECPLPAGEJ)3 00724000 ! 
DUMPARRAY CL INET ABLE); 00725000 e 
1) MPARRA ie Bi cal TN ne ee Se OT POO ttn teaser a Seer woe ts te : 
SUMO RR RAY CEEGARD AV} 00727000 
OUMPARRAY C INPUTANK 3 00728000 @ 
MPARRAY(TANKS)3 Si eee EI he 2s ee en AO oe tes wna taal A 
DUMEARRAVCTNAGES: 00730000 
ENDS . 00730100 . ® 
p EN ee ee OOP SV OOOH a 8 ee De le 
BEGIN 00732000 7 
~ OUMPRESULTHOLDER 00732100 @ 
_eNnp Be Gig eh Dt 9 i ee oo a es Oe cS te ee Ble | 8, st 
IF ARGH NEQ@ O THEN 00737100 : 
BEGIN 00737200 @ 
DUMP PO H SS II ha RSE a i NO ata OO SP ROO a tt on ee Me ls z 
ENDS 00737400 e 
‘OF DUMPING Serec IEG ARRAYS> 00738000 - 
B06) PAN Pe f) PAKS) ; ; = Bogs — 
VALUE ATS & 00740000 
INTEGER ATS & 00741000 @ 
REA NKAT 3 bea BS ce SN ON nh a pate ees ; 
BEGIN & 00743000 e 
INTEGER Roi & 00744000 
MERt2AT ROW CtsaT COL) Teen goo 
OPERANOt=F ALSE a ; 00746000 “e 
ELSE % 00747000 " 
REGIA OOF BOO at a Te 
 WHATSSMERsCd3 & 00749000 -@ 
OPERANBS sTRUE3 % / , 00750000 
“NODS 9 Ss se ek ot cn cee OO SO Ses oe 
END OPERAND; & 00752000 | 
BOOLEAN PROCEDURE DESCRIPTURCATs» WHAT» KIND) 00753000 @ 
, , 0 0.00 Sots te et , 
“INTEGER AT3 | 00755000 
REAL WHAT»KINODS 00756000 @ 
A Ni ; = 00 7? 5 7000 ae a Is a en a rome tne 
INTEGER RoC3 00758000 
IF CKINDSSO0CTALCCHRS(MLRISATeROWeC8sATeCULJ,001)))2>"40" THEN 00759000 @ 
BEGLI 00760000 te eee eA ; 
DESCRIPTORSSTRUES | 00761000 | x “ 
WHATSECHRSCMERsCl]e197)3 ; 00762000 i@ 
ND) : 00763000 Beers es ern ee RA ce a a4 
END DESCRIPTOR} 00764000 ist 
BOOLEAN PROCEDURE PUDATADESC(AT#WMAT)3 90765000 / OF 
a 00766000 eee ee ode et} 
INTEGER. “ATS 8 00767000 ; 
ae WHAT 00768000 | 9@ 
REG se ee Mes 769 F pada os lst 
INTEGER KIND? 00770000 59 
IF DESCRIPTORCAT»WHAT»KIND) AND 00771000 a @ 
| KINDS"50" HEN | | 00772000 ce 
—POATADESCt=TRUES ler | 00773000 26 
ENDS | by ) | 00774000 '@ 
FAN PROCEDURE CONTRULDESC(AT#WHATIE 2 0077500 f 
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VALUE AT3 00776000 
INTEGER ATs 00/7/7000 
REAL WHAT3 7 ee os Bes" Oe =| 0) 3 56 eee 
BEGIN 00779000 
INTEGER TYP; 00780000 
ONTRO =D RIPTORCA HATs LYP AND 007 00 3 
TYP,(40%4)]=1 AND 00782000 
TYP,(45%1)=03 00783000 
NV ONTRO a H ee ae ere eet oon 
BOOLEAN PROCEDURE MUMQKC(MOMPRTsMOMLOC 23 00785000 
VALUE pers INTEGER MOMPRT» MOMLOC3 00786000 
Mii Mt) K e AD WOME a i] int 8 é : AND (MOM) OC rezMOmj OC.CF GTR O# OO7 87000 - Se eS See Pe a ee RD 
INTEGER FING ioe Gon 4 00768000 
BOOLEAN NEECCHECKAVAILNKSS 4FALSE IF DOPMT DUMP 00789000 
ARR A Qi M 0 QJ; BOOLEAN COMNT geen IOPGOOOQ 
PROCEOURE MCPENTRIES# 00791000 
BEGIN 00792000 
OGstsTRuks Sek Ethie a et attr ete 
DISPLAYCBED* FALSE), 00743000 
Pe be Ve abel ees: 00794000 
D 0.9 -0.0.9—-—-—- ~ — 
OLSPLAYCFENCE eFALSE DS 00796000 
OTSPLAYCLOGLINES FALSE: 00797000 
Y 00797400. s 
BISA VCceAtECTIC PALE: 00798000 
DISPLAYCSTACKQs FALSE) 00799000 
PLA Bi A io Sn a Ng a es ee en OR ODO OU oo nn oe ee orate thot ot 
DISPLAY CLCGARRA* oF ALSE )3 00801000 
ear acne tac 0g802000 
ArSpL AVE aa FALSE)3 00803000 
DISPLAYCP2MIX»sFALSE)? 00804000 
5 Ed a a ONO UQOG. 
END; 00805000 
PROCEDURE GETPRTENTRIES3 00806000 
2 i ees a OO8O7000 
REAL ADRewCerPRIRGWeLs 00808000 
= ADRR» 008U9000 
1 Bac OOO OO 0: on en ee ee ah 
ARRAY MIXCO? 4U]3 00811000 
FORMAT PRTGUTCX1O>"PRIT LOCATIONS: "/ 00612000 
X20e "MIX" a X20e"PRI"Z ), 00843000 
FIG X20% Adsx20e ASD); 06614000 
elie BAO RET RS eee SCR Ne PRT DESCRIPIOCReexnwwat) 5 00815000 
A QO816000 
ABEL NEXT 00817000 
ar: NOTCPDATADESCCPRTsL) AND LCF. WEQ O° AND: ns (8210) GTR O 00818000 
AND 684190) LSs THEN BE 00819000 
MIXMAX!=DERINEDMIXMAX3 % FOR LINK CK 00820000 
WRITE CP»BADPRT D3 GU KIT ENDs 00821000 
ADRi= 333 06822000 
WORe L.0£831613 ae 00823000 | 
Kbeed3 00824000 
MEIX¥MAX?2eWC rds 00825000 
FOR 13= 1 STEP 1 UNTIL CWOR1) DO BEGIN 00826000 
IF PDATADESCCADR*+I »PRTROW) THEN ELSE PRTRUW3s03 00827000 
RTROW #0 TheN BO 
GO TO NEKTs : 00829000 
Ktaked3 00830000 
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MIXCK%#K+1)2s PRTROWS 00832000 
NEXT? 00833000 
END} % 0 FINDING PRTS—& VAL LD MYX ES gO 
WRITE CPePRTOUT)3 00835000 
WRITECPoFieFCR 1:50 STEP 4 UNTIL K GO OCTALCMIXEC1),€332151))3 00836000 
NOB AZOOO oe et NS ce i thn 
END OF GETPRTEATRHIESS 00838000 
INTEGER STREAM PROCECURE MCPONTCA)S VALUE A’ 00839000 
f ema 
7UIF TOGGLE THEN TALLYS&TALLY+1 ELSE IF SC NEQ@ "O" THEN 00841000 
TALLYSETALLY 41581 8sS141)3 MCPCNT&SsTALLY2 00842000 
INTEGER PRTCODES % SET 10 Orl GR 2 BY CRECKPRIFILE 00843109 
Eee oeee DATIMES 00844000 
3 BO Bi. PE la 
STREAM PROCEDURE "PRIFILEMESS(PoL?C)h VALUE C3 00845100 
BEGIN. LABEL MAYBE» BAD>s Paks x1 19 00845105 
ore () ia ree NS, oy OES 
Pree 00845115 
GO XIT3 % @ 00845120 
() MA A OOS ei ee SR a ee 
GO BADS % 2 00845130 
A CREHOO TEL IT CAPPEARS os Go FIX} 00845135 
A) O08 ‘we aoe 
FIX EDSESLOL IT" INGORRECTI™S 00845145 
XIT tOSts32L1T" "5 00845150 
NO PF O08 
IF NOT CONMON TREN BEGIN 00846000 
IF NOT OPERAND( 3»MCPVERSION) THEN WRITECP*BADCELL3)4 00847000 
: Mipa RriWe tA ei EN OO848000 scenes 
WRITECP*®BADDATE) ELSE 00849000 
BEGIN 00850000 
DATX := M(OATE»ROWSUATE.COLIJS 00831000 er das eee 
DATESCDATX*»DATETAKEN* DAYS» YEARS )3 00852000 
ENDS % ‘OF. DATE 00853000 
BITCMEXCLOCK eROW*XCLOCK, COLI) THE: 00854000 ee ee 
WRITE CPyBADXCLCCK) ELSE 00855000 
BEGIN 00856000 
c is M wK e itO we x 0085700 ie . 
TINESCKCLOCKsTIMETAKENSMINUTES* SECONDS? 008358000 
ENDS % OF XCLOCK 00859000 
PRTITE P NLA : NE sPR ODE Ds 00859050 “ BTiS is 5 yl, fe Ri SESS Sb, Be, 
WRITECPsBeLINEL*))3 00859100 
WRITE CPsFANAL» VERSION) 3 00859200 
WRIT PsFTAPDSK»s TYPEsTOMF Of6) TOME Ite 00859500 Peete een eee 
TOFID. C616] + TOF IO): 00859510 
“WRITE CP» FCOMVAL? REAL CCOM) 23 00859520 
TECPsXIMARKXI IF Best lssmCPCNTCMCPVERSION?) GIR 6) ON0H60000 Poss 
THEN MCPVERSION.C686)] ELSE " "» If B THEN 6 ELSE IF 120 00801000 
THEN 1 ELSE Ie MCPVERSIONSDATETAKENSUAYS» YEARS» 00862000 
MET AK N MIN S» SECONDS) 3 00863000 EE Bal tects 
END m 00864000 
Te SHAREDISK THEN ee eer gee 00864400 
If OPERANDOSYSNO,]) AND I GEQ 0 AND I LE 3 THEN 00864110 erate 
WRITE CPsSYSID. 1+17)3 00864120 
DATESCTIMECO)*sDATEANALYZEDs DAYS*# YEARS D5 00865000 
TIMES(TIMEC1 D>» TIMEANALYZED* MINUTES» SECONUS) 5 00806000 ote ce aeeenn, 
WRITEC Ps FHXX* DATE AN ALYZEs OAYS#YEARSs T TIMEANALYZED@ MINUTES» SECONDS); 00867000 
a : ae 008668000 
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END 


DEF 
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ORMAT. BA Weoe IT NVA F. ER BLOCK #¢ ", 1; 
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IF FLGBITCMCCLOCK.RUWS CLOCK .CULI) THEN 008/0000 
WRITECPs equetae ELSE 00871000 
CLOCK © MUCLUCA+RUW*CLOUCK.COLJs 00873000——“‘(Ci:é;*# _ i 
IF xCLOCX LSS CLOCK THEN MOLOE RI heen’ tice ee 00874000 
M4 X= ‘a ONOS)3 00875000 ty 
WRITE CPORUXCST INE ILLEW NUtEes SECONDS)? 00876000 
TIMESCCLOCXsSINCSLASTHLeMINUTES* SECONDS )3 00877000 
WR DB Mx3,SINCSLASTHL sMINUTESsSECONDS)3 0878000 i 7 
END 3 %OF CLUCK 0u879000 
END3 0c860000 
3% 0 DA eae eat a 
PROCEDURE PRINTARRAYRCWCPRTLOCPINXDS VALUE PRTILUCSINXS 00881100 
INTEGER PRTLOCPINX3 00881105 
N pS Aa eee tee Ne a et 
INTEGER LOCsSIZE3 00881115 
acOL EAN TOGsCONSAVE*OBLSAVEs 00881120 
006 4 bath test a oe er SIN ay Sed lt PNP ee a 
STREAM "PROCEDURE FIXLINECL INES INX)$ VALUE INX; 00881130 
BEGIN LOCAL Asi 00881135 
zS i A aa a a cs cs gO seco ty Massel au 
32CIF scan " THEN JUMP QUT ELSE SIisSI+1)3 00881445 
AtsS ts DItsa; BS est G's Atzol3 00881150 
iu ‘ a iy a 1} <| a 00881455 a plicit a — 
DIs=A3 DS3s3 FILLS Di s=b3 00881160 
DStS3LITMy¥J"3 00861165 
ND x NES ee SO ORB ETO sone. . 2 
IF. TOGt=BOOLEANCINXe£421)) THEN 008681175 
OTe eet eiceer TRUE 00881180 
> () * s n een tet Ss tl cet 
COMSAVE! =COMS 00881190 
COMt=FALSE3 00881195 
OB a) =DO0OUR P aa OOo S| oS an ne et ee 
DOUBLE SPACE $=TRUE$ 00881200 
IF PRTLOC GEQ@ 129 AND PRTILOC LEw PRTMAX THEN 00881205 
4s so poe See OOO LE? 0) Sn Ts ee ee he 
IF PDATADESCCPRILCC*LOC) THEN 00881215 
IF (SIZEt=L0C.04210]) NEQ OU THEN 00881220 
(TF TOG THEN PRINTCLUC2=LOC.CRsMIN(MAXCUR*SLUCTSIZE)) ELSE OO88le25 Sse eer caseek 
BEGIN | 00881230 
ee ee 00881235 
N WX Ds Oosbiez4o 4 
WRITECPLDBLJ615°L INET *))3 00881245 
TOGE=TRUES 00681250 
O_ AGATN 00881255 eshte Md am 
END? 00881260 
COM? =COMSAVES 00881265 
Nous A =DA A H : OO881267 S _ 
PRINTARRAYRONS 00881270 
INE PRINTARRAY CPRINTARRAY1 = gone neTS 
DR AQDA ‘* A > ze OOO 8 
INE PARPRINTARRAY# PARQWSPRINTARRAYROWAD 00881285 
ROLE AN BADCOMMENT3 00882000 
RMAT -COMNTP ARC" =e P aR RROR O RRED N COMMENTS #8 a NOBB 3000 
PROCEDURE LOADS 00844000 
BEGIN 00885000 
‘Te . > : 00848 6005 a Ne te . 
“LABEL. EF »sPR» IGPARS 00886010 
LABEL Oe fanaa Saal ae at eae 00887000 
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@ «4 
PATFILEC™PRT FILE USED LS "rALsAba"/"sAl re hOeX3)» 00868100 
PARERR CMtemITRRECOVERABLE PARITY IN BLOCK # "s12)> 00889000 @ 
RA (Nw we A N wok - BAlLOCK # H | O00 Nolet t, Re een ae) ; 
ARRAY ore erry 00891000 
STREAM PROCEDURE MOVER(S»D)3 00892000 8 
S1ta53 DI:sb3 00894000” Se ‘ 
16(OS%=32 ae 00845000 e 
N DMO aw same 8A . aot a Par re Pe OO BY6000. eee te od, oie Nee Ae Se a 
STREAM PROCEOLRE GETCOMMONCCUMMTSN)3 00896010 e 
BEGIN LOCAL X»Ys LABEL XIT#sHIT»GETNUM; 00896020 
Q i HS iss S+OOOO0001"3 SItsCOMMT;, BG BOI ee 
7C2O0CIF SCE"C" THEN BEGIN Sl2=S1443 00896040 
IF SC="C™ THEN BEGIN Sit=SI+13 00846050 @ 
sme HE NN Mi 2 TO mIT FLSoe SJ t=ST 44 Sod Son ean! ieee i ade A eT te it pn a, ” 
END ELSE SIe=S5]4+1 END tLSE SlteSf+1I93 00896070 
GO xIT3 00896080 e 
HLTVISCIF Sce"=" TH N JUMP UUT TO GETNUM ELSE SI%=Si+1)5 GO X11j;00896090 _ te eet ante! é 
GETNUMSSI%=SI413 00896100 
DIt=Loc x3 00856110 © 
1OCIF Sc" " THEN SIt=3]+1 ELSE JUMP GUT) _ 00896129 ee = _ 
BCIF SC GE@ "O" THEN IF Sc LEQ "9" THEN 00896130 
BEGIN TALLY SS TALLY Gst=ChR END ELSE JUMP OUT ELSE JUMP OUT)s 00896140  ] 
Ed ODOBY6 1 0 a he foe “4 
SItsLoc ‘XG 00846160 fe 
DLs=N3 00896170 -@ 
De Q 3 a a OG OF BO ce ta Ba i ee ee ee 
XET# ENO GETCOMMONS 00896190 
INTEGER 13 00897000 e 
ALPHA NisN23 pee a OG Pe a en ee oe i 
STREAM PROCEDURE KLUDGE(XNAMS)3 00897100 uM 
BEGIN DI&=XNAMSs 13°00St=6LI7" ") EWS 00897200 -@ 
OMNT+BANCO N ALSE3 18FROO0 etait M 
IF RELOAD THEN 00898110 ; 
FOR ['=@ STEP 1 UNTIL 63 DO UNLOCK(MEATOJ.ROW #193 00898120 @ 
M REN OO0898 Oo a = mi 
READ REVERSE (MDUMPs 20sCUOMMTL* I) (BAD TMS I GPAR]3 00898140 
IF FALSE THER IGPAR?BAUCONMENT #=TRUE, 00898150 e 
al. iR fy Z ae sii aati ht ors, so ans 2 ‘ 
BEGIN 00900000 
IF MULTI THEN READ REVERSE CMOUNPs 53344042 )LBADTMIPAR] ELSE 00900100 @ 
RE AD(MNUME BADIM 0 11000 " By toe 
IF FLGBITCA) THEN GO FLAG ELSE 00902000 
IF MODONC ACO), £3323] 1]85NU) BUOLEANCALO],C1%1]) THEN 00903000 © 
BR oe Sa aca Sareea ie a) Oe rl tec te ee pac ee 
MOVERCALLI»MCALOIRUW,OI)S 00906000 , 
LOCK CHCA LOD +R ND #193 . 00906500 i 
ND =O bEN BLt7s &% COIC7OOO on Te 
COMMENT ONE SRE IS WRITTEN PER ABSENT MOD3 00907100 Ova. 
ENDS | 00908000 _ of 
OMFID2=MDlUmP,MEID$ 009N8100 Re eee 44 
TOF ID: @MDUMP, FID; 00908110 “e 
FILETYPE! a1F BOOT ese TEEN "Taper ELSE "OISK™S 009086120 a 
fr. v : : CO9I0DA 0 cate ot 
IF PELETerrasrares AND TDMFIUL NEW 0 THEN 00908140 59 
IF TOFID+(30%18)=1 THEN ELSe MULTI S=TRUES 00908150 \@ 
RE PE A A rip fh D 3Q3 5 j= REN MDU M OO908160 ale ate eee 
ELSE CLOSECMOUMPs®) ELSE o 00908170 ie 
ar CAUXTYPED@ ACO], C385) #0 THEN 00908180 @ 
TYPES"TAPE® THEN eee ee 00908190 Stee ts: 
e@ e 
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READCMDUMP»2C»CUMMTL* J) LEGT#1GNOREPAR) ELSE & DISK 00909000 
MOVECAL513)*CCMMTs20)3 OuryU9I{00 @ 
A HEN NORE PAR S$ BAD MMENTe nad oo Aaa Re at hin, 
COMNT t= TRUE3 00911000 
GETCOMMONCCOMMT»N1)3 00911100 (@ 
IF oN e 0 TRE OMSzQUCLEANCNG)2 ts03 009 ¢ nes = 
IF MULTI THEN NUMOS=TRUE ELoe 00911140 
READCMDUMPENGJ)CEQTEPARI3 00911150 @ 
A HEN OG Oa tre et Eves BPS Bi ag te ee 
BEGIN 00911170 
EQT! CLOSECMDUMP)3 00912000 @ 
NOMO 3 = TR H A A oa es as AOI GY a 
ENDS 00912100 
IF COMMON OR RELOAD THEN 00913000 @ 
BEGIN 00915000 
IF PRT32 THEN PEADARRAY(30sSEGZEROUL#)> 0) ELSE 00917000 @ 
b) PPh ihe ai cee a ae aaa Nn ee Reed eat a 
READARRAY(NAWESIZEsNAMEL#)> PRTBASE); 00919000 : 
READARRAY (NAMSOIZEsNAMSL 41) 20)3 00920000 @ 
"READARRAYCINANSS1ZEr INAMSC #1, 0)3 00922000 
CLOSECDISK)3 00923000 e 
N 2 KM De NK =O75 NOY < ON 6 Coane Sy ee eet wad *s 
WRITECPRINAMEL*JsPRIFILE PN e LOO] oN1eN2olO26) eh2)5 00923110 
ene 00924000 @ 
A OA Ni a, a ER ss tase EE 19¢4100 7 Z Atha ks = 
BEGIN 00924200 i 
MAXMODES73 % 00925000 @ 
WHILE WO MODONCMAXMOL OU MAYMQOD :eMAXMOD #13 00926000 2 Se ee sea sha at a 
MAXCORSS4096x(MAXMOD41 "13 & 00927000 
IF COMMUN THEN ELSE 00928000 ® 
PRIMAX? =PRIBASE*NAMESIZE™ 13 00930000 ! 
INTMAXt=INAMESTZE@13 0093100C @ 
FOR L3s@RTBASE ST (Gn HARA bin WENN Ae oe __ 00932000 ieee a ones 
NSNAMECIJ+PRTBASES 00933000 
FOR I:#Q0 STEP 1 UNTIL INTMAX DO ISwaMEC LI 3s 00934000 & 
SN AM PRTRA H O09 35000 need So a a eh: 
FIXDEFINES3 0093600C 
SETUPXNAME ANDXNAMS3 00937000 @ 
DAA =O a 4 A ME PRY. B N A 16 OOF. 05 Sat ROT AS ‘ 
BEGIN 00937010 oe 
DATEt=1155 00937015 e 
Kis _ 00937020 ee en Re oe 
XCLOCK 18121} 00937025 
END ELSE 00937030 1@ 
B N & A re PR x1NS 00937035 a ee ek Co st 
DATES=DAaTE} 00937049 * 
CLOCKS sCLOUCKS 00937045 «@ 
WCK2SEXCLOOCKS SOE SP ts ge se ue 
KLUDGE(XNAMS)3 00937055 i 
ENDS | 00937060 ~@ 
ADR ; OOS he ae ee ee et el ee eee, ddan de Sede | 
IF CONTROL DESCC?>1) TREN & CHECK FOR MSCW IN CELL 7 00937110 £9 
IF IeCF2O AND Its]eFF GE@ O THEN % ASSUME VALID 00937120 ai® 
___MYSTACKADR3=7430; % MAY NEED MORE THAN 30 00937130 Soret eee ae tence eae 
ENDS . e 00938000 ty 
END3 a 7 | 00938100 »@ 
WEN BEGIN 0 ON Ee gono 
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BADTMSWRITECSPOsRAVEOFs1)3 GU EUPROG; 00940000 
PARS WRITECSPCsPARERRe T4123 GL EOPRUGS 00981000 
A NR p AGERR 5G ROGS D 0 200 Serr 
END LOADS : 00943000 
PROCEDURE CHECKPRTFILE3& 00944000 
SIGNA : Pr SS/PRT FILE *MIGHT* MF THE WRONG ONE = = = = == sss 00945000 | 
BEGIN 00946000 
Natt LOCs TYPeI3 00947000 
LABEL BADs MAYBE; 00949000 
DEFINE CHECKFORLABELDESCRIPTORSIF LUC LSS 0 THEN GO BAD ELSE 00950000 
RIPTORC(LO sTYF) AND TYPSMYTYPE TREN 8 ) MAY 95 
DEFINE CHECKFORPROGRAMNESCKIPTUR=CHECKFGRLABELOESCRIPTORSS 00952000 
fie BADPRT (# ene YOUR aaa FILE 15 WRUNGese”™ Ds 00953000 
MP A on om anf COMP AT IRL E WITH MCPS PRT IN MEMURVs,o%)3 00954000 
DEFINE “ERRMESS (ERRMESS1 @6EGIN WRITE CSPOFERRMESS1)3 00955000 
WRITECPEPAGEJ*ERRMESS1) ENDaSS 00956000 
YPELE"74%3 a NN a ah I ae ta hte en eed ee OO SG = ua 
IF (LOC?=NOTHINGTODO) NEQ O TREN 00958000 
BPPGKE GREAECDE SCR IM) OR? 00959000 
a NE Q he NN ¢ 60000 
" CHECKFORLABELDESCRIPTCR} 00961000 
If. SEDC USRETURN? NEQ O THEN 00962000 
PECKE ORI AB R ARS i a a OTE BNO 
MYTYPESS"75"5 00964000 
IF (LOC?=OTHERCLOSE)s0 THEN LOCs="15 00965000 
KE ORPROGRAMD RIPTOR ws 
TF FALSE THEN MAYBE?BEGIN ERRMESSCINCOMPAT), PRICUDES=1 ENDS 00967000 
OTF FALSE THEN PAUSES SIN ERRMESSCBADPRT)S PRICQDEs #2 END? See 
AE KP D AQOOO 
PRUCEDURE DUMPMCPSPRTS Aooroeoe 
BEGIN 00971000 
CARMA HOR ¢ x " M PS Hi DOY72000 
: Xao,teo Oe ee ee ee = om Loh A 00973000 
2CMPRTM es XSe"CONTENTS* o X1Oe*NAME™, X28 )/) >» 00974000 
. A : g . i H 
FCX8s"MEMGRY MOUS! "s811)>» 00976000 
PRTITEMC2CASe™ S&S “oOo X1 90a X59) 25 oGy77000 
T R N3 00978000 
LABEL EXIT3 00978050 
IF DUMPCESSPOQLONLY THEN DONTOUMPRT SS TAUE 00978100 
NO COMMON Mt IN ; 00979000 
BEGIN 00980000 
CHECKPRIFILE3 00481000 
NOT DOK MPR HEN BEGIN MES WR Bi N 00482000 
PRINTMCPOPTIONS3 00983000 
TF DONTDUMPRT THEN ELSE aoe oeee 
“REG 0 85006 
WRITECPLDBLI> HOR)3 009386000 
FOR LOC? sACTUALPRTBASE STEP 1 UNI1L PRTBASE OO 00987000 
° A 9 
— WRITECLINEC #] PRTITEM*OCTALCLUC) SUCTALCHIHALFCLOC) 5 00989000 
: Dorie ote Wipe eter preterit ie. heer maaniee 00990000 
a CTALCHIMALFEON) D8 0CTAL CLORAL 00991000 
ROVE TRNANSEXNEWETLOCHG CF)» UTI Pr AMELCUGH: FF)3 00992000 
MOVE CXNAMSCXNAMEDCNI] CFI *LINECL 2) »XNAMECNIJ FF )3 00993000 
__WRITECPo 15 esLINEC*))3 00994000 
OTF DONTDUMPRT THEN GO EXIT3 00994100 
: ENDS 00995000 
WRITE -(PaDASHE 53 00996000 
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eo eo 
FOR LOCS=PRTBASE+#1 STEP 1 UNTIL PRTMAX DC 00997000 
BEGIN Vo¥¥8000 ®& 
mM: PR non oven & Pee OS 0 a oo a Sn i ee to, a 
HETAUCLOUNE CL UCU PGC ALON ONGN AWE EC) 0: 01000000 
OCTALCHIHALFCN) )» POCTALCLORALF CN) ))5 01001000 @ 
MO NAM NAM 3 A NAM Q) Relrere = = 
SOVECNAMETAMECNE: CF JsLINELL EJ sNAMECN]aFF QS 01003000 
WRITE CPs 15¢LINEL¥I 93 01004000 @ 
DONTDUMPR HEN GO EXIT; OOO BO eho At SS a Be ee yaks oi 
END? 01005000 
EXIT+ 01005100 ® 
fy : ie POOR OO On Be ee Lu Sinilices Ui 
END; 010G67000 
ENDs 01008000 @ 
WRI P(O8 ‘@FOR N&sO STEP 1 UNTIL ¢ BO Eee I eA a Ae 
CIF MODONCN) THEN N ELSE 103)4 01010000 
DATIMES 01011000 ® 
DtiMP SPOOL ON HEN Rope seetererven Ya © Es Bes [Sh Eo F 0 eee ee a es BE eee Reena ht ey th Pie ; 
IF NOT COMMON THEN 01012000 
BEGIN | 01013000 ® 
MCPEN Fe a OO EA OOO ote at ee tee _ 
GETPRTENTRIESS NEXTPAGES 01015000 
END} 01016000 e 
ND OF DUMP OF MCPS PRT; ————-—--——-O40179090 eer 4 
ARRAY MEMLUCLOEMIXMAXJ»LINKLUCLOIMLXMAX)3 01U18000 
COMMENT eeoee MEMLCCEI] HOLOS THE START CELL AND LAST 01019000 @ 
ADDR a a a gg et a a ee OU OOO One i ee he te we _ 
MEMLOCEIJ,03%1)] =" OsTH LINK IN AREA I IS BAD, 01021000 
C581] ©= BAD LINK(S) IN AREA’ LAST GOOD 01022000 @ 
iN I NK LO Oe SOOO ee ee he i he 
C481) <= LAST LINK IN AREA I IS BAD. 01024000 ‘ 
ef281) == STATUS UF AVAILABLE LINKS, 01025000 “@ 
on MM AD R fe L000 tPA Sit te wink ch 2 
,C1815} °= ADORESS OF LAST CELL OF AREA, 01027000 . 
6033215) "= ABORESS UF OsTH LINK IN AREA, 01028000 @ 
ae HOLDS ADDRESSES OF LAST GUOD LINKS 9000 
IN FORWARD SEARCH IN LINKLOCLI4.033215)> 01030000 7 
IN BACK SEARCH IN GINKLOCCI}eC18:15) 3 01031000 @ 
REAL MSTART»MENDs VFENCEsPRIOS 01032000 fee tact aca ee 
COMMENT »«+¢ MSTART IS THE ADDRESS OF THE 01033000 : 
O»TH MEM LINK CALSO THE FIRST CELL) OF AN AREA, 01034000 @ 
MEND HE ADORESS OF THE LAST CELL OF AN AREAs 04035000 ee " 
THESE VALUES ARE HELD IN MEMLOCe eed 01036000 X 
BOOLEAN PROCEDURE CKECKMEMURYLINKSS 01037000 @ 
8 N 4 Q: 4 
COMMENT e+e. THIS PROCEDURE HAS BEEN CHANGED TO CHECK 01039000 a 
MEM LINKS IN ALL AREAS IN COREs FIRST WE ACCESS 01040000 i@ 
SQ TO DETERMINE WHICH JO@S ARE ACTUALLY IN CORE 01041000 ae “| 
WE THEN COMPUTE ‘THE AUDRESS CF THE FIRST 01042000 ‘ 
CELL AND ThE LAST CELL IN A MEMORY AREA _AND 01043000 u®@ 
OR IN MENUS 019044900 Nee ee NEE Th I a a8, 
ENTRIES ARE THEN ARRANGED IN. ASCENDING. 01045000 “a 
SEQUENCE. WE THEN PERFORM THE NORMAL MEMORY 01046000 «@ 
: K CHECKING: OCEPURE MAKING ENTRIES In 01047000 eo ess etn otal l at : : Be kedeie 
MEMLOC AND LINKLOC TO REFLECT VARIOUS PROBLEMS 01048000 eq 
IN THE LINKS FOR USE IN PRINTING UUT CORE* 3 01049000 s@ 
ROOLEA d i O07 OS UGO0 ; Sneed eS Ad oh oe tee 
BOOLEAN MSTARTOKsS REAL VMSTARTS % 01051000 — as 
BOOLEAN NOWRAPAROUNDS 01051100 ~@ 
BOOLEAN NE p ( 0.0 eee ies or ee ay pate ct ante? 
@ °® 
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REAL LINK» VLINK»sPREVLINKS 01052000 
INTEGER AVAILAs AVAILT+AVAILMS 01053000 e 
DEF IN a a a eh ce OO tet heh Byte To pens asst sas | 
BOOLEAN PROCEDURE LINKOKCWURUDS 3 01055000 
VALUE WORE? 2 | 01056000 6 
gS ee he Sa 5 set Ean Se Rc Ney On 
LINKOKt=WORD+C3?6]STYPMAX AND & 01056000 | 
WORD.L9%6) LEG MIXMAX AND 01059000 e 
NORD 2150; ee er aE EDT SND a A ee eT 010.07" 01 3 0c ee ee ee a rr ; 
BODLEAN PROCEOURE FENCEQKCF)3 01061000 
VALUE FS REAL F3 01062000 e 
\ CK RipyOjysO p~NO FeO; 01063000 a al Aas Sloe et Py. Oe 
FORMAT RANGECKB"LINKS FROM ",A5e" TO "ZA5e™ ARE UK)» 01664000 : 
FCORECAS +" = Ms 2(UsxLI,X74"CUREs XO s"FACTOR = "ok Ue2, 01064100 @ 
ti] A “OR 5 - " A oS " " ” ve we " w Ty f Li] ii) sos sg aoe Gs ote Ne 9 hase a te eB 2 vt 
ONEQKCX8*"L INK AT "eA3," IS OK"), 01064500 ‘e 
TELLMCXS#"END UF MEMORY LINK CHECK FOR MIX = "> 01964600 : 
2a BAL SC OUP Gn ks ae eo et | 
BADCX8sAGe™ LINK AT "*A5e" 1S NOT OK")s 01005006 ; 
AVLBAD(Xb, "AVAILABLE STORAGE TOTALS DG NUT CROSS CHECK" )#01066000 @ 
a. "Aval! AB RS AKE Cn ALL pete OT OCU O Oe! ica re S52 seit ! 
Th» "(DECIMAL D AREAS OF spas ee Gas 01068000 : 
") WORDS UP TO "sASs "€"%T5,") WORDS EACH")3 01069000 ©@ 
ARRAY Ard a a Te a he ce ca ne es oS PON OO ota ne olan eee ; 
REAL SQPTR»DUMY*AVALL» 01071000 : 
LEFTLITS CNTR» SOFTRIS 01072000 @ 
DEFINE S = SQPTR1 «ROW SWPTK1<CULHS 01076000 ie 
| PROCEDURE PRINTIT(ADDH» NAME )} 01077000 @ 
ae ADDRS REAL AUDRs NAME i te tga AIO OOO tree teh i eo sil Eee eae cas soe aa 
BEGIN | 01079000 ra 
INTEGER DUMY>DUM43 01080000 “@ 
ORMA =M mos Xe Og: aot ae oe 
WRITECLINEL *)>5 TTEN1 SOCTALCADDADS 01082000 ” 
: See tcc eee SH TH ALE CADOR J DFO CT AL COUN A IeLORALE CADDI 399 - 01083000 @ 
AM Gad U a are eT a ia . 
WRITECPL DOL)» Pel INEE*I)3 01065000 
END PRINTIT} | 01086000 e 
At* Ww Ho" MSTART ",” LEFIL wt, KBVAT " SOUR TOO Cie A ee ee 
: - " WEND "3 01048000 
CNTRI=O3 01089000 @ 
IF NOT CZEROKtSOPERANOCFENCE*VFENCE) AND FENCEOK(VFENCED) 01090000 eee 
THEN IF NOT CZEROKSS(OPERAND(2-VFENCE) AND 01091000 ! 
FENCEOK(VFENCES=VFENCE+CF4#2))) THEN 01492000 \@ 
EROKS=OPERANDO(C Ms VFENCE) AND FENCE QK( VFENCE S=VFENCEoFF+3)3 01093000 ee = S ot 
CHECKMEMORYL INKS? =ZEROK3 019094000 “ 
‘IF POATADESC(SQsSQPTR) THEN BEGIN SOPTRI=SQPTR, CFs 01995000 1 @ 
FOR 1320 P UNTIL MIXMAX pO BEGIN 01996000 Dacre a RGAE MS Ok 2 ati 
SQPTRLItsSQPTR + J3 01097000 ‘Tae 
DUMY t=CHRS(MCS)5301)3 IF UPERANDCSOPTR}sVy) ANU Vo#O AND 01048000 iO] 
BOOLEANCVOol131)) THEt DUMY=0 GR DUMYs1! OR DUMY=4 OR DUMY«®5 OR 01099000 pie cease, 4h 4 
oo  DUMYs46 OR DUMYs32 THEN BEGIN. 01100000 | 14 
OMSTARTESVFENCE +102QXCHRS(MESI969193 | 01101000 ; 0 @ 
NO gs NG! O2441004x RSCMES JeSe1) 3 Hii02¢000 : ee Se eae Be eet ett 
GTR 1026+ VFENCE THEN 01103000 52 
&**ee THE ABOVE TESTS FUR JOBS ABOVE THE FENCES 01104000 a@ 
MEMLOCECNTRESch t=MST Al 13246325) @MEND 18? 3: toe. 2 OFTOSO00:. t= Ne ee he See 
"ENOS ENDS ENDS MEMLOCLCNTR#1]iae73. 01106000 z 
FOR ted STEP 1 UNTIL CNTR#1 DO ‘ x * 04107000 , | @ 
SPOR Ube leq STEP LUNTIL CNTR DO jo 0 0 ee ele | ae 01108000 on ee 
® @ 
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IF MEMLOCLIJ.CF GIR MEMLUCKJ]6¢F TREN 01109000 
BEGIN 01110000 @ 
Of=MEMI : Oe Seve Ml CCr ; PE PaEoPOm 0s Ul Ud 20 © 10 Cees Ae Cee ee See e ee Te fe 

MEMLOCEJ)t=V03 END} 01112000 
FOR I t=0 STEP 1 UNTIL CNTR OD 01113000 i|@ 
Q N OFT L4O0O 9 fst, indy hee ‘ 
AVAILNGCAVAILTCAVAILMeNG TEM] eds 01115000 a 
PREVLINK?=MSTARTi=& MEMLOC(C1]eCF3 MENDt= MEMLOCEIJeF Fa 01116000 
= MSTAR ; g= MS ; a zs 2 -_ 
IF I=0 THEN 01118000 
BEGIN 01118100 ‘@ 
¢(MEND¢VFENCE™ 096 04118200 ———CC Ft 
WHILE NOT MODONE YJ OU BEGIN MENU? SMEND@“4C963 Yteyel ENDS 01118300 
MEMLOCCOJ].FFI=MENUS % THE ABOVE ALLOWS FOR MISSING MUDS 01119000 @ 
NOu he i i ES ae ce eee eae Sion D 
IF NEWTYPE THEN ELSE 01119200 al 
IF OPERAND(MEND+22DUMY ) THEN 01119210  ] 
D 20 AND M "SMEND re fh a ey ET CT OE i 
NEWTYPE: =TRUE3 01119230 a 
PRINTIT(MSTART» ALO] )3 01120000 '@ 
PRIN Bi I Sc On eS a eh ig ated 
PRINTITCAVATL+At2)3 01122000 - 
PRINTITCMEND# AL 31)3 01123000 '@ 
sO THEN IF OPERAND(COREsDUMY) AND DuMYe[it3]s0 THEN = 04123100 = ——CsCs—s—S 
N 01123110 a 
WRITECLINE( *J¢F CURE > UCTALCCORE) »UCTALCHLHALF (CORE) )» 01123120 @ 
: ALF(CURE) »UUMYs[4t14)/100» cee L1G ee ak es 1 ae ee 4 
eTALC Cis souNy : CFxO4).CF) ede 01123140 
OCTALCCURSOUMY oFEX64) CF) 023 01123150 ‘@ 
mT: POORL]*1SsLINEL* oh piesa ale cers A Ola ae ee ae — 
END ELSE 01123180 ae 
DISPLAY (CORE*F AL St); 01123190 @ 
A NKOK& sR 2 } ir i aoe once Stee On te en el ee Cn ao ‘ 
IF LNKSOK t=MSTARTOK £0PERANOCMSTART»VO) ANU 01124000 i 
VOeC1&2) 51 AND 01125000 '@ 
() $ as M ocr 83 AND Q1i26000 =25 OTE ae, asta 
CIF [sO THENCVO.CF NEQ O AND vO.CF LSS 4096) ELSE TRUE) AND 01126100 " 
VOeFF = CMAXLNK =MEND ) THEN CINKE#VO0,CF ELSE 01127000 @ 
i‘ T Yi (} = [vl ha P 2°. ) 0 O i aa at cpap ended team toeleanyoaietilomrmichichioantiects le: Syria he 3 . yt we | : 
IF. 130 THEN VINLNKESLINGE 01128500 
WHILE LNKSOK ANO MAXLNKPREVLINK DO % 01129000 /@ 
NKSOK?2=(OPERANL iKe VLINK) ANL O11: 00 Pino es dete woh 4g . ae 
LINGKOKCVLING) AND & 01131000 : 
VLINK.FFSPREVLINK AND & 01132000 @ 
NKs=MAXI N Q41433000 wie ee og ee . ‘oe 
ELSE VLINKsCF>LINK) ) THEN 01135000 «@ 
BEGIN 9 ok ee OEP IB OOO. 5 et aa 
PREVLINK#2LINK3 % 01137000 “a 
LINK#SVLINKe CFS 3 01138000 «@ 
ALNKOK THEN Se trates oO eer 5 i et RI, pt ony ccs eden 
IF BOOLEANCVLINKe£Liti1) THEN & 01140000 le 
IF AVALNK GI SMAXLWR>PREVLENK THEN % 01141000 | : 
AL NKOK $a (CORE RAN K) .AND. & 01142000 : hela named onset ales ell 
VLINK LL: 17120) THEN % 01143000 zi 
BEGIN % 04144000 wu® 
_AVALLALSAVAJLNGTS Bo 01145000 ate eee . Ge eel 
AVAIL TSSAVAILT#VL INK FPS , 01146000 ba 
AVAILMESMAXCAVAILM* VLINKeFF)3 3 01147000 . : @ 
WOR : Loti ees. ’ A000 Me pares apes lens __p 
@ °@ 
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END? & 01149000 
IF LNKSOK THEN WRITECPsRAWGE»UCTALCMSTART J»OCTALCMAXLNK)) ELSE 01150000 
a i OO Oe = aoe 
IF MSTARTOK THEN : 01152000 
BEGIN % 01153000 
WRITECP*RANGE» UCTAL(MSTART) »sOCTALCPREVLINK) 23 01154000 ———~ 
WRITE CP*BALs "MEMORY "*CCTALCLINK ))5 a 01155000 
NKLO se08PR K if 156000 Aes oh 
ENDS &% 01157000 
MINBADSSLINK3 x 011586000 
ST sp SO BRO ot ot ee te 
LINKISMAXENKS 4 01159000 
WHILE GPERANDCLINKs VLINK) ane é 011600000 
NK Ok eatin le tete e  a e  OVLO LOO 0:2. ote aeeT 
VLINK, CFSPREVLINK AND % 01162000 
LINK>VLINK. FF DO % 01163000 
B a ek ao a ee OT A000... ee en ee 
GREE =LINKs & 04165000 
LINK?=VLINK.FFs & 01166000 
~ NO 4 0 OOO — el I SO Ne th ted 
IF PREVLINK®MSTART THEN Q41268000 
BEGIN 01168100 
od sal =M My ; () 6 & OO eae 
ENO ELSE 011608400 
BEGIN 01169000 
MAXBAD tsk & NK DEMAx HEN 69500 aan SA eee 
WRITE CP» ONEOKs OCTALCMAXLNK)) ELSE 01169600 
WRITE CPs RANGE» eee eee emotes 0117000060 
nee, PeRADe "MEMORY tof 01171000 a SS es et ee De oe 
MEMLOCCII: =MEMLUCELI€1LD 447% 133 01172000 
LINKLOCLIJPSLINALOCLIJ&FREVLINK CTF 01173000 
NOS O11 7 Q bes Aten 
END? 01175000 
NOWRAPARGUND! = TRUE; . 011475100 
A NKOK ts OPFRANDCAVAILs PRE NK) AN 01177000 a Petia ates, 
PREVLINK&=MAXLNK#1 AND & 01178000 
OPERANDCPREVLINAsVLINK) AND & 01179000 
NK 247 ]=50 AND 3 01180000 So oon estes 
VLINK FF S32767 OR % 04181000 
. oe cMAXLAKS £¢VEINK) AND % 011811006 
J=O AND @ SE ee ey ee ee OBL 0° ee TARE Se Re eRe 
VLINK. FF232767)) THEN & 011061300 
BEGIN 01182006 
AH AVAILNKO AND 01183000 
NOWRAPAROUND. AND x i 01163100. 
CIF neta nat AVATLNDN ELSE TaveD AND y 4 01184000 
K - N ! ANDO & f) 6 OOQ Ree nent ne 
CIF LNKSOK THEN aM >h4 ELSE TRUE) 00 01186000 
IF NOWRAPAROUNC? TEPER ANOLE sVLINKeCF AND ree ae THEN & 01187000 
AVALNKOK%=sc¢ OP LNK= LINK) AND & 01148000 
LINKOKCVL INK) “AND x 01189000 
liebe ib ere nia Caddo AND. x tons 01190000 
_OPFRAND(LINK+1teVLINK) AND oe : 01191000 
Terr FFSCiF NEWTYPE TREN “LINK= 7 ELSE QO) AND & 01191100 
VLINK,CFs PREVLINK¢#¢REAL CNEWTYPE) AND 2% 01192000 
OPERAKD(L Nas VLINK) AND % 01193000 
VLINK,£1217320 AND. % 01194000 
01195000 


VLINK (CF ZLINK) 


THEN x e 


01196 


“y 4q) 


rc 
7 oo 


me ORS 


= 
— 


a 
7 


50} 


oeoen~ DO TF fF WH = 


Sn ss 
oa » Ww = 9 © @O yy Om wT 


TS 


2 
Bi 
3 
3 
3 
x 
13 
[36 
3 
13 


; 
0 


S 
s 
~ 
2 

S 

oy 

g 

3 

o 

S) 
Q 
g 

o 
Q 


a3 


4 8, 4, a ° E 


NianN+43 
TIsT+vLINKeFFS % 
Mi S=MAX (CM N “fe 
PREVLINKISLINKs & 
ENDS & 
OT AVALNKOK THEW WRITECPsBADe"AVALBL "+ 


IF LNKSOK AND 
NOTCAVALNKOKS= 
NKSCkK AND 2Z 
AVAILN=N AND & 
ANAT TST AND 2% 


Yi se AND 


“VLINK « CFSMAXLNK+1) THEN WRITECPsAVLGAD) ELSE &% 


BEGIN WRITECP, AVL» NeOCTALCT + ToUCTAL CML 29M1 3 
: ME e ‘ Ler A VK OK )3 
END; 
END ELSE Bd TEMPER a SD by SE CUAL CUAKENRS YO) 
ty OR 


WRITECP» TELLMy MEMLOC(LI1).Ci3s:Sl]s1F [su 


THEN "C BELOW" ELSE "CABUVE™,S"” THE F"s"ENCE) ")3 


rs 5 im 
Ay 


END LOOP: 
END ee ee 
ARRA 0 YMAX ] 2 


BUOLEAN PROCEDURE RCWMSCWSEARCH(1Us> BOS? ANS): 
VALUE TOS»B0S3 REAL TOS*#BUS*ANSS 


», IN annem anne ennnnnnnhieeemnnnnenmeenmnneennanenennnennnemanemnneennnEnnamennnnene ee 
REAL ADR»Bs LABEL UPS ADR?=TOS; 
UPS IF CONTROLOESC(ADRed) THEN 
" (Bish FF )s0 THEN RCWM EAR isTR 


ELSE IF AOR:S=B>8US AND TOSS 
THEN GO TO UPS 
ANS3 SADR; 
END RCW MSCW SEARCH} 
INTEGER SSTACK> _SSTACKINXS 
PRO DLR SPL ACK WD 
VALUE TUS REAL TOS 
Beaty ; 
IF PERANOCSPACE STAC OOS) AND (BUSS#8OS.CF+1) LSS Tas 
AND aus LEQ BoS+126 THEN BEGIN 
MA 


sROS 
IF “CONTROLDESC (BOSH) THEN STAX(U}t=B, FR3 
ea 
. A aS N 
PROCEDURE GETSTACKSFROMTMEGED? 
BEGIN 
COMMEN H PROCEDURE HAS BEEN REWRITTEN TO 


REFLECT THE MANNER IN WHICH THE BED IS KEPT IN 
THE TIMESHARING SYSTEMe ESSENTIALLY WE LINK 
HROUGH HE 8 RWAKDs PICKING UP STACKS 
UNTIL WE FIND A BAD LINK OF FINISH: SEARCHINGs 
ood WE FINO A BAD LINK wE START Rep Mares 
‘ A H. BAL btal atWe! : 8 
GET THE “MAX INFO UuT OF THE BED WHEN PART OCF IT 
Is CLOBBERED. @etreoeeeonee FUBsgsenesvane 3 
AREAL BEDLNK NK GZ 
: INTEGER MIXG 
LABEL PRUBLONUPsBKWEBLOWUP) 


OO AND CBE 0D BF fp AINA 


eee remem Ser Si e010 | © eee ee een eee Se ev lt 


NK SE 


01197000 
01198000 


01200000 
01201000 
20 


01202500 
01203000 
20410 
01204000 
01205000 


01207000 
01208000 
012086 0 
04208200 
061209000 


O12 10000 


01211000 
01¢€12000 


01214000 
01215000 


01217000 
01218000 


01220000 
Se eae 

222000 
ae escoo 
01224000 


01226000 
01227000 


eA ar ea 


penn 


a anOTa © I WT -@7-4 0 101 0 


01229000 
01230000 
iB: 


01232000 
01233000 
Olé 000 
01235000 
01236000 


01237000 


01238000 
01239000 
01240000 
01241000 
01242000 
01243000 
01244000 
01245000 
01246000. 
01247000 
01248000 


01250000 
01251000 


O12 O00 


= £ = F 
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E E é e G eS 3 ~. 53 3 >. 


e eo et 


CVBEO.C2%t1)]=1) AND CVBED.C989)4544) ANG 04253000 
(BEOLNK?2=VBED.CF)4BED) THEN 01254000 
8 N eee tee oe Sc ecg EB he nh a he ee ans 
PREVENK IS BEDS 01256000 
WHILE BEOLNKFBED oa 01257000 
PERAN Re 1] AK f. NK ANI 01258000 
CVBENDLNKefL232J=1) AND CVBEDLINK «£93 912511) AND 01259000 
PDATADESC(BEDLAK*+1»VPREVLNK?) AND 01200000 
FR NK 3x PAR VieNKe CFS PREVENK AND 
OPERAND(CBEDLNK+22MIX)) THEN 01262000 
BEGIN 01263000 
PA: dA A tw ete rete Co al As Cie ae a ee ee Oe BOAO OO = ~ 
IF MIX GTR MIXMAX THEN MIX8 503 01265000 
IF MIX GTR O TREN MIXSTKENEX] S=MAXSTKS 012660006 
al =s R ) \ dl | Py () : 3 eo eee 01267 7QOQ 
PARULNKESBEDLNG BEDLNK fzVBEDLNKoCF 3 01268000 
SFACESTACKFINOCPREYLNK )3 END ELSE GO TO FWwoBLOWUP; 01269000 
+ 5 pa oh es I OTA TOO OO. —— 
BEGIN 01271000 
FWOBLOWUP! 01272000 
POATA SCC REN Ge ANE Q 7300 
(VBE0O.0919)2511) AND CVBEO.FF>63) AND 012740900 
CBEOLNK&=VBED,CF +#1)78E01) THEN pees iel 
BEC TA 276000 
PREVLNK:=BED3 aie oee 
eee cea vO 01278000 
Foverdenis (orgies AND 01280000 
OPERAND(BEDLAK™ 1» VPREVLUNK ) AND 01281000 
i WK ND ‘a NK GS: 9 )=% AND H2O00 
CVPREVLNK$ 2VPREVLINK ® CF ISPREVENK AND oreeso0s 
cape Ne CeEDEN Ne Lele) THEN 01284000 
MAXSTKISWAKSTKeq? 012866000 
IF MIX GTR MIXMAX THEN MIX$=0; 01286500 
IF MIX GTR @ THEN MIXSTKIMIX] :sMAXSTK3 01287000 
STAXECMAXSTKIZ=(BEDLNKISCREALCMIX GIR G)IL7ia78195 012686000 
PREVLNKSsREDLNK=1;3 BEOLNKtsvBEULNKeCF eis 01249000 
PA ACKFINDCPR KS E "LSE G J BKWOBRLCN 290 
ENDSENDS 01291000 
BKWDBLOWUP: BEDSTKs=MaxSTK; 01292000 
ND. G ACKSFROMTHEBED; 01293000 
ARRAY INTCDELOSMIXMAXSOSINAMESIZE@4 93 01293800 
ARRAY NEXTINTCOSMIXMAX]); 01293850 


PROCEDURE DUMPMEMORYANONOTESTACKS(FRUMsTU0)3 


01261000 0 


01294000 


a St Lo 


“VALUE FROM»TOOS 01295000 
INTEGER FROM, TOOS 01296000 
% N 01297000 got hte 
DEFINE T=LIAKTYPESS 01297100 
BOOLEAN BEDLELS 01298000 
ao REA Mx SS st Ne ee 
“RORMAT [TEMCX22A30" =" o2(X40A5))F 01300000 | . 
REAL RsADArQsLL3 BOOLEAN INTRAOTS. 01301000 
_ BOOLEAN IRSTACK»MCPSAVES emer ee 01302000 
BOOLEAN MXNOTOsTYPI 33 01302100 
DEFINE MXO=NOT WXNOTOSS 01302110 
REAL VoeWs Xe AVSIZES 01303000 
 ENTEGER No STKE | 01304000 
FORMAT AVATLABLECKZ7) wats AVATLABLE. SIZES™# ASP MCMOISS ™) Da 01305000 
oe MIXUS peMMiNe Me LDPXIPAB IR ee 01306000 


BR 


@ 


Data Documents/Iinc. 


s ty ry 2 a, 3, 4 E : : 5 : 


oo Oo ~~ OD OO B® WwW hw = 


eo @ 
MCPUSECX279"MCP#="sA6)s 01307000 
MCPSTACK(XE7e "MCP FURKEL STACK@*"), 01308000 @ 
womys esis WOiez ts on eek es tees cuit, a, 
ARRAY ATPLO!STYPMAX41)3 01310000 4 
NOTPRINTCALL#=TRUE3 01310500 @ 
INTR? =PDATADESCCINTRNSCS AOR) AND 1203 01311000 ~~ : 
ADRS2ADReCFS FILL ATPL *) WITh 01312000 e 
TUNKNWN Ys a ee ata o,f jap ___ 043133000 aor, 4 
MALGFIB™s"INQBUF"s"CUBFIB »"INTSEG"s 01314000 
"HEADER" s "MNTILOG" Ss" 10%," Lie STACK ", 01315000 rd] 
_"INTCDEN," ar, smi Be 5 lo) SP pee Pi OO Oe ees ee ee 
oy 18%» " 19">» "CIDRUW"s " Zits ty Zo", 01317000 
"@@eceeerzsenan BENGTES AN UNRECOGNIZED LINK TYPE 01318000  ] 
NH ROM<1 0 OLS 19000 2 nk el 
BEGIN 01320000 
Nem(LisMCFRUM, ROW» F RUM. cul 3). CF: 01322000 e 
8s Ax N j | alTis M A RAD 2) 0 ee Ce eee ae ee eer A eee AT nd eee 
MXNOTOSS(MX$=L.L926)) “NES O03 panenes 
IRSTACK#SL.11:26)=763 01322200 -@ 
3 a » fh a : sdiaieidanatiaac eigen ai stad aS 3% a ie ite et a ct ee 
IF NODUMP THEN ELSE 01323100 
BEGIN 01324000 od 
IF OPERAND(FROM +15) AND Xel4317]5C0 THEN 01326000—st—“‘C:‘C:*W — - 
X.FF ELSE =100003 01327000 @ 
WR PLD AIL ABLE e>IF AvSiZe LSS 0 THEN "Hemeem __013¢8000 : eae wricies basectse 
ELSE OCTAL (AVSIZE)»AVSIZEDS 04329000 
AVALNK!=TRUE3 01330000 @ 
PRIN ‘FROM " DUMPAVA Z TRE Bic ks Neth nde ! 
NEEDCHECKAVAILNKS THEN N ELSE FRUM+3)3 01332000 ‘ 
AVALNKSSFALSE3 01332500 @ 
ND Bs a ce ee ae eee 
ELSE 01334000 
BEGIN 01335000 @ 
QTSS0PERANOCFROM+19Q)3 01336000 6 ei ete bets ; 
MCPSAVEt=@T AND Q 40 AND Lef2t13]=4096 AND GeFFZO AND GeCF2129 01336500 
AND Q,CF SPRTMAX3 01336600 ® 
MxXO_AN & AND | ~{ MCRSAVE) THEN MCP see OPIS 9 OOO... eta ann aD : 
IF NODUMP THEN ELSE DISPLAY(QeCE »FALSE) ELSE 01339100 
IF QT AND (Ts7 OR T=13 OR (Tei AND QsCF LEG 1023 04340000 e 
AND QeFF 6 4023 AND G,L187 150 04340050 ee 
ANOCLL ESO, C88 ot New O AND 01340075 
NOT BOOLEAN(L,C2!1]) THEN 01340077 a 
R NIRIA 5 3 0 1 34Q 1 QQ Ce RRESE TIIEO TNE, mae 
IF(Ri«® 01340150 " 
IF 137 AND INTR AND MXO ANO OPERAND( ADR#LL eV) 01340200 @ 
AND Vimy, : 0 Hy 014340250 _ zie te! tl 
IF CTYPL3%=2Te13 AND MXNO1O) GRCTS1 AND MXNOTO) 01340300 x 
THEN FRON#2 ELSE Q) 01340350 . .@ 
RU N wes GC mf ee Dewees a 
BEGIN 04340450 : 
LF T NEG 7 TREN % SAVE OFF TYPE 1813 INTS 01340500 “| 
; Q 0 ¢ De sree weet ea oa se ees ee Pine enc tn eg Stns toe te A ie 
IF NEXTINTEMX] §®NEXTINTIMKI 4] GTR 01340520 }s 
INAMESIZE*2 THEN NEXTINI“UMX]SSNEXTINTOMXI@43 01340530 @ 
INT x {™ = : oe : Bee Suan! Ser Yee 
R & LL£et3e310) «8 01340600 . . 
(RAQsFFA1) CTF ReaL cTYP139¢44471113 01340650 | ~@ 
ND 04 2340640 poe a es eet, a oe ee ain Hts See 


Data Documents/Inc. 


E 5 aS s 3 5 x, 


e oe “get 


IF NODUMP TREN ELSE IF Lik LEQ INTMAX THEN BEGIN 01340700 


WRITE CLINE DC ® I>, TI TEM*UCTAL CLL) sCCTALC(R)» 


MOVECINAMSCINAMECLEJeCFI*LINEC A)» 
INAMECLLI FF OS 


01340750 


01442000 
01343000 


__WRITEC@CDSL a7, INECe}) ENO to 


END 01344100 
END ELSE 014344200 
P N : OU 
IF MXNOTO THEN WRITECPLOBLJ »MIXUSE*MX»ATPLTI) ELSE 014344500 
IF IRSTACK THEN 01345000 
“WRITE CLINEL*]¢MCPSTACK)3 01347000 ai i 
IF OPERANUCFROM+22W) AND 01348000 
Sg La a a gy 
THEN MOVE CNAMSCNAMECV] <CFI*LINELCG]»NAMELVI.FF)S 04350000 
WRITECPCDBL I ,9#LINEL¥))3 01351000 
NO 0 S2O0O0 
WRITECPCOBLIJsMCPUSE*SATPLTI 24 01353000 
END IN USE LINK DECGUINGS 01353300 
®, 1) ) ) H = = . 6 ¢) an RESIN: hee Rae ERE ORE WTON ITED EPCRA ae, IN 
TF NOT BOOLEANCL, C1842) THEN 1323900 
“BEGIN STKta~qs - 01354000 
WH. AX K KtsSThs AND NO BE , 8 0) S5000 
IF BEDDECi= 013356000 
CLLESSTAXESTKI¢CF GTR FROM AND N GTR bu) THEN 01357000 
‘#0 rich {= 0435458 (} 
NOTPRINTCALL P=NOTPRINTCALL AND NOT MCP SAVES 01358050 
PRINT (FROMs TF CONEMIX#0 AND ONEMIX#MxK AND MX#0) 01358100 


ORC NOR ORMALCODE AND({t2? 98 213) op aang ssi‘; 


(T=4 AND MX#U))) 01358300 
OR (NOMCPCODE ANDGL (3? 12)s 64 OR MCPSAVE)) 01358400 
| RO N 0) rs OO 
MCPSAVE*sFALSES . . 01358550 
oe ENDS ee 01358600 
ZBELOW,WE PICK UP STACKS NOT ASLEEP FOR "DUMPSTACK™ TQ DUMP LATE 01359000 
% C634) IN STAXC*} Is USED TO INDICATE SPECIAL TUP*OF=STACK TREATMENT 04360000 
IF NOT BEDDED THEN 01361000 
RSTACK BEN O1: Q 

STAX(MAXSTK SeMaxSTaeil ss 01363000 

CN*1LIACFROM42) CTF & 1068478193 01364000 

ROM: sN a Os re ae ee et oe nO O00 8 5 no ee ee ee 
END3 01377000 
NOTPRINTCALL SSF ALSES 01377500 
A Kis AXLQ 01378000 
END DUMP MEMORY AND NOTE STACKS; 01379000 
FRR MCPROGCO?25513_ 01360000 
: RU MAXMCPROG IF 3 01381000 
ARRAY OUTERBLOCKTOTG]3 % 014382000 
PROCEDURE SEQUENCECARAYsLIM)3 01383000 
B M3 e Ps ore 
“ARRAY ARAY(Q]3 01385000 
_ INTEGER LINS 01386000 
ny: ‘ Bf: 000 
INTEGER Tels 01368000 
REAL v3 01389000 
LIKE AM PF DURE | JeD3e@eoMi2)5 Le 000 
 MALUE 0322M323 : 01391000 
BEGIN (ae 04392000 
ou  SitsSs presy 


01393000 wea UF Oh le 


BS : : : é a 7 é = eS £ f i : 
i tas <4 : zs gia > = uN cane © a ze Se : é - - . 
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a os 


Data Documents/inc. 


1 
2 
3 
4 
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6 
7 
8 
9 


D32COSt=3e WOS); O013%¥4000 
DSt=M32 wOSs 0143595000 
‘A MOVE é 
TSsLIMs 013497000 
WHILE (Ti=T#4)20 0d 01398000 
Bi N OL SY9N0O 
13" IM; 0140000CG 
Lit=(ViZaRAYLT1).CF, 014U1000 
why ARS Fae ee MO Oo oe = we te to 
Ttslwy3 01403000 
IF (LterleT)>0 THEN 01404000 
MUWECARAYET413¢ARAYLT Job 0L37s6]eb0l4325))3 0140600C. 
ARAYCITJ]i=vas 01407000 
NOs a na eh a oe et OO O00 caso Et ne 
ENDs 01409000 
END etal 01410000 
PRO SOR TANL MCPR ; 0 O00 eter Shen as Ni See ee sha ts 
BEGIN 01412000 
ae R> 01413000 
“R Pi SP een Os 1S TEC Gk 0 Eee ee ERA PO Oe ee eC 
FORMAT TOTALPRUCS(///" #88 A TOTAL GF “»tl3e" MCP ", 01415000 
YPROCEDURES WERE PRESENT IN MEMORY)» 01416000 
(82 ttPR NT id A DURES" o14i7ono 
VPRTMsXSe"UESCHIETON  s KBe"THRUNSZ D3 01418000 
IF VESCRIPTURCESPBITsRe TYP) AND TYP="75" ThEW 01419000 
Mi MAX PA ; i= pe Ot eee eae: © 44 Lz cerereren Pe ay ER EN, re RE a 
CESPISER,CF)& 01421000 
CESPHR, C8t10)"1)016233%1518 014422000 
PB R 0) 0 23000 
ELSE MAXMCPROG!5"45 01424000 
QUTERBLOCKLC): SCPRIMAX+1)&¢(ESP"1) CTF: 01425000 
OR tz iM ; ‘ 
IF SESPRIRTGRE TARO TVE) AND 01427000 
‘CTYP="75" UR TyP="77" OR TYPs"74") AND 01428000 
rs i oa 4 i‘ zZ 
MCPROGEI MAXMCFROGS=MAXMCPROGt+HI J ss 01430000 
R,CF& 01431000 
R RR Rs iO )= Qs é 1143200 
1£8:138:10)3 04433000 
SEQUENCE CMCPROCG*MAXMCPROG)S 01434000 
NEXTP AC 014 000 
WHITE CPaF D3 01436000 
SGLTOG: =TRUES 014361400 
al 3 = pA IY! PROG {] 0143 7000 7 me one 
‘DISPLAY(MCPROGLI}, Caf10)sTRUE)} 01438000 
SGLTOGISFALSES 01438100 
OTALPRO MAXMCPROG41)2 O14 39000 
END GET “SORT AND LIST PRESENT MOP PROGRAM SEGMENTS 01440000 
ARRAY INTSPLO%2x] NAMESIZE]3 01441000 
GER INTSPMAX TRAINTSPMAXS 0144200 
PROCEQURE GETSORTANULISTINTAINSICS3 01443000 
BEGIN 01444000 
EGER IMAXsMIX te 4450006 
REAL ADReRol se CoV a aaeo0G 
FORMAT ITEMCX29 A390" Sa 2(KX49A5 ) oe X2e AeeXeZ ds 01447000 
BeaNPRESENT INTRINSICS"// QO1448000 
: INDEX" 2 X60 "FROMM s X5e "THRU" X22" TYPM SD» 01449000 
pee Lady BaD Ul react aad 014499050 
AMLIDOTA AR a: : : 0 19400 


vala vocuments/inc, 


* E : an en < 3 5} 3 


ee Ligice 
es 


FOR MIX3*1 STEP 1 UNTIL MIXMAYX 00 01449120 
BEGIN 01449140 
$303 ie er NES 2 tee eke Se Na ee a ae URE aan iM ata A 
IF CQ%= IATCDELCMIXe Tislti)) NEG O TREN 01449170 
DO IF Q LSS O TREN Viewl UNTIL GtsINICOECMIXelsaleijso3 01449180 
Ri THEN BEGIN Rite4s INTCOECMIXe,O0)] t= V ENDS O1449200 oe oe ee 
ENDs 01449220 
ie . oS 0 TREN INTCOELO*#01]°=4;5 01449240 
=" ee ea ee | OL EE Bot OO) 1 Ale cata es te ats ats tat aah AO 
TF PDATADESCCINTRNSGs ADR) THEN 01451000 
BEGIN 01452000 
MAXSSADR CHE1Ol"1s ; fee cea 
ADRIZADR.CE a G14354000 
IF peel ea mW Relts3b)=¢ 01454100 
AND RR NE : Ax Lee A Mi A’ =H if MIX gs ea ee de: Z — eG eee Ce 
IF IMAX oy QO THEN 01455000 
FOR [31 STEP UNTIL IMAX DQ 01456000 
RAN is ; OK ek bi FN 0 + ote ree aeeesrae eae Soe ee 
TNTEE LIN cPiban (INT SPMATHG Te 01456000 
IF Is17 THEN ReChalReCh+3) CTF & LLAEG36210) ELSE 01458100 
= R : 6 a es 
CIF CPERANOCReCF™L2L) AND 01460000 
O<CLesl.FF) AND 01461000 
i A I i ty 
ReCF+L"1 ELSE ReCRICIdt§ 3at15]4 01463000 
It8i3atloj; 01464000 
ND 5 Binal Pee oa 
OIF INTSPMAX GEQ 0 OR IWTCNELQs0] NEG O THEN 04466000 
REGIN 01467000 
: H ia eh Otte TT RE cera ea ee Pe teen oy 
DISPLAYCIATRNSC»TRUL)S 014609000 
Ir MIX LSS UO THEN WRITECPLUBL IJ sGADINTO)3S 01469100 
iT: wa: : 00.0 aout 
IF INTSPMAX GEQ O THEN BEGIN 014 70500 
SEQUENCE CINTSPs INTSPMAX)3 01471000 
WRITECPCDORL IJ »sMIXINTs2Q) 5 0147 OO ee 
FOR I?=O STEP 1 UNTIL InNTSPMAX LO O0147200C 
BEGIN 01473000 
WRI NE C + Me OLTA s=INISE 8 0 474000 _ ei Serie lie 
OCTALCINTSBLIJ «CF )» 61475600 
OCTALCINTSPCIJ¢FF 39793 01476000 
FN i A a \ : ae G 147 7000 bi AS ie A aca ap cna ce i a il wate ta) 
MOVECINAMSTINAMECL J eCFI-LINEL 4), 01478000 
LNAMELL J OER D> 01479000 
__WR Ps7oLINECe))s 01480000 aotes. 
ENO} 01481000 
WAITECP 3 01481500 
OS 01482000 ave 
TF INTCDE(O/0) NEQ O THEN 01482100 
FOR MIXt=4 STEP 1 UNTIL MIXMAX DO 01482120 
; R3sTN NEG HEN 01482140 ne aduhed ade see dicta Dit 
BEGIN fy, 01482160 
ioe GL the ; 01482180 
WRITECPLDSL J oMIX: INTs M Xa CEA aie bean 01482200 i 
WHILE CRs INTCOKELMIXe1#3141)) NEQ O© LO BEGIN 01482220 
WRITECLINEC* T+ 1LTEMSUCTALCL SBR, CB8I1L0)J »OCTALCR,CFIs 01482260 
OLTAL(RaFFI/OCTALCIF H LSS 0 THEN 13 ELSE 1223 01482300 
IF L LE@ INTMAX THEN — 01482320 
01482340 


MOVE CINAMSCINAMELL I+ GE et nas 
es Bel ME CL DPE 2D 


01482 
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TES 


eo 
WRITECPe7oLINEL*J a3 01462380 
ENDS 01482400 'e 
WRITE OED GIGS <2 | 5 ae a ee eee Se : 7 fea oh 
END: 01482440 | 
ENDS 01482445 \'@ 
JMMENT MOVE TYPE 1 si tyres Ves Hane aye pun USE RAPER -caaneane~ iueWesk,  < 4 
IN STACK ANALYSIS3 01462460 
EXTRAINTSPMAXt=INTSPMAXs 12505 01402470 @ 
f\ 2 oruéel N 4 ff y 
FOR MIXt®4 STEP 1 UNTIL MIXMAX CO 01482490 . 
IF INTCDECMIX,0J=0 THEN 1350 ELSE. 01482500 rd] 
INTSPLEXTRAINTSPMAXSSEXTRALNTSPMAX4 1] ]22h— 01482520 
END GET SORT ANU LIST PRESENT INTRINSICS# 01483000 ] 
REAM FRO DUR 6 O) Bn4aOOO Be a ee See hits ew a Rot vet oe ek 
VALUE SP»DPrWsCs 01485000 
BEGIN 01486000 e 
= S “ 2 0 Pye O Oe i fe. hs ees a ct ss ted lt A Mens 
DIS=D3 NI:=OL+0F3 01488000 
WCOS%s8 CHR) DOtsC Chik 01465000 e 
ND MOVE i aE Sa lO a a Pe . 
~BOULEAN PROCEDURE WITHINCARAYs AMAXsITEM*sRESULT* PLUS )3 01491000 
VALUE AWAXs LTEN3 01492000 e 
KRRAY A tol; ete. Lane e : 
INTEGER AMAXs ITEM»RESULT»PLUS3 01494000 i 
BEGIN 01495000 @ 
BOCLE ah TAD i tenn Se OG OOo ss ee et ae 
“LABEL EXIT? 01497000 
IF AMAX20 THEN 01448000 e 
=0 h 19O0H se Calpalace tpt etre. Scale 
a FOUND3= 01500000 - 
CARAYLIJsCFSITEM AND ITEM SARAYLIJeFF) THEN 01501000 @ 
: \ 2000 z eee arenes ” 
RESULTIZARAYCII],CBI10)3 ayeuscoe a 
PLUSTSITEM@ARAYCIJeCF3 01504000 ‘@ 
Nn TO Piet a Ee et OOS OOO... feces ere Oe en eee 
END 01506000 
EXIT’ WITHINSSFUUNDS 01507000 . 
NO WITHIN 04508000 aa tek oe ¥ 
ARRAY PROGS(O83»0!25513 INTEGER PROWS3 01509000 | 
PROCEDURE GETBETTERTOS( TOS» DELTA» INC sBOS»NERTOS)S 01510000 x 
: AS 2D PANS; 045 000 _ 7 - =e 
INTEGER TOS*DELTAsINCs BOSsNEWTUSS 01912000 
BEGIN 01313000 @ 
OMME A 5 PRO _ () : OW UN A 015 000 abe Lt By is G8 fe 
STACKS. WHOSE ACTUAL TOS Ts UNKNOWNCONLY A MAXIMUM VALUE IS” 01515000 pt 
KNOWN). WE ARE "DONE" WHENSBARRING ABNORMAL CONDITIONS» WE RETURN 01516000 «@ 
N "NEWNTOS" TH MA R 0 25 WAL 2 eee ieee eer ae ohh eae He 
1) "TOS" AND 01518000 lt 
2) THE ADDRESS OF THE “TOP VALID CONTROL WORD" +UELTAs 01519000 wv@ 
__JO OBTAIN THE "TOP VALIO CONTRGL WORKU" WE SCAN DUWN THE ACK STARTING 01520000 ee? ee Tae, ae cen tH 
“SAT "POS" UNTIL WE FIND A CONTROLWORD(CW), IF THE. F"FIELDCFF) 04521000 “8, 
OF THIS "ORIGINAL" CW PUINTS TO ANOTHER CW AND THE 01322000 : bl ® 
ADDRE OF TH ATTER CW FALLS IN THE RANGE "BOS" THROUGH _ 23000 pe meatiatalin wad taryen ge, ahaa ae! 
CMBOS" +"INC) WE ARE "DONEs IF NOT IN THIS RANGE WE 01524000 62 
CHECK FOR A CW AT THE ee GIVEN By THE FF aE 015<5000 3@ 
HIS LA I po" " 01526000 fee st, ty ee 
“LONGER. LINK TO A CW. IN THIS LAST CASE WE LOOK “FoR ANOTHER ORTATNAL® 01527000 " 
“GW STARTING AT THE NEW VALUE OF "TOS" ANO REPEAT THE ABOVE DESCRIBED 01528000 w@ 
EPROUCE SS #40 4% tx a yor OI Ja a hk eke ienntantd 01529000 By 
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REAL TOSURIGsxX»sYsBOULEAW WOOPSsCh3 041930000 
LABEL SQUEEZE» oe ise caesar hal 01331000 
IF BOS=0 THEN GO LAST ELSE TOSt=TOS+13 041233000 
SQUEEZE: DO TOSt=TOS"1 UNTIL CONTROLDESCC(TUS»X) OR 01534000 
pect hat a al (OS tea Se OS OO a er st ee 
IF WOOPS THEN GO LAST3 013536000 
CUTBACKS IF CY%=XeFF) GEG BOS AND ' 04537000 
Q) HOS N Ai Q BOO Sei) aes sereit ence lege mcameec eaSeiatuefnd a gece, ee 
CNS ScONTROLDESCCYs Xd THEN 01539000 
BEGIN 01540006 
Ao NEWTOStsemIn( TOSORIGsTOUS+0F iL Tale eee : wee a 
GO XIT3 012342000 
END 0124300C 
IF ¥Y GTR 8OS41 AND Y LSS TOS AND cn 01545000 
THEN GQ CUTBACK; 01546000 
i S¢ i SR Pa a Seen Se ef EE I OT O00 ee 
XIT3 END OF GETBETTERTUSs 01248000 
BUOLEAN PROCEUURE EEN E NEO era acne? 01349000 
ROS} REAL TOSssO0SeC3 eens 3 acwene ere aad ah 
BEGIN: 01551000 
“REAL ee Agree OKs, RtatToss 01552000 
Wid : AK, Ki j O 3000 dees, ewe 
IF BRA ERCHMSENS EAR OR CG: BOSsF) THEN 01954000 
WHILE NOTCCONTROLDESCCR+1oF 2) ANU RETUS Ud 01555000 
Rom +f LSE Risged 3 Ne een ee Seen nO WIR MEE MRE a =< 1! 2 OV Ce Ae eee Aa an OS 
GteRe PRUNLNK tS0K3 91557000 
END PRUNLNK} 01558000 
Boo AN HOOKORUNHMOK ING? _  OLS5Ki00 See eee es i aie a3 IN 
REAL. LOCIRCWs 01958110 
PROCEDURE DUMPSTACKCINX)3 019559000 
A NX 3 Ba ee ee ONE 0000- Pee ree of 
. > INTEGER INX3 015610006 
BEGIN 01562000 
ABE K iF ROW U P , _ 01563000 ST gaat ag wh ele on antes 
LABEL AGAINSs 01263100 
eee RECYCLING; 01563200 
R 564000 See ee eh a sate 
INTEGER TOS» BCS*SEG*ADRe He Le PROe 15 01565000 
- INTEGER TLyY3 01565100 
DEFINE FORKED=BOOLEANCSTAXLINK] C621) a3 01566000 _ 
DEFINE YUSTBELOWTHEFENCE SBOULEANCSTAXCINXI]¢(521)) a3 01567000 
DEFINE SPECEBCOLEANCSTAKCINA] ,€4211)43 01567100 
DEFINE EYE STACKSBUGLEANCSTAXL NX C3%i 245 01367200 See 
“INTEGER DEL TAs INC» Ws 01568000 
DEFINE MAXSTACKSIZEsS12#3%MAX STACK BEEO™ ToS WEYLL OP 01569000 
DEFINE ¢O0 CLENOT NORMAL #3 04570000 en ee eee 
REAL VsRs 01571000 
BOOLEAN NORMAL sf OUND; 01372000 
RMAT WDC X68, '"'S ROM "sAd0" VD ) “sA5)» 01573000 eee 
CINTSTACKCAS s”. s "eOsX190)» 01574000 
— SCX8e "BED. ENTRY AT "se ASeK29P So 2CK1 90 )e- 01575000 
Ne Me MMASMO AT "pAD sxe eo "="2 20K) 00) | Bus 01576000 oo82 2 
COXBe BAGH XL rAGAM (Mo TUe 9" + “se pdy 01577000 
TOM> THe Mee TL eM) MDG 01578000 
NEXT Mi Sk NOY OOO a ot a tte oh 
WRITECPLDBLIJ-HD> 01560000 
01581000 


TF release <1 THEN We larel 


hy oe 


01582000 
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IF CBRSteSTAXCINX) «FF) = G THEN “akan” 015463000 
ELSE OCTAL CUS) )5 01544000 
ROS 15 Ad : nos Hi oe ee OO OOO. et 
IF TOS $1 THEA GO ERROWTS 014587000 
IF SPEC THEN GO ean 01587100 
NORMAL $=B0O0 AN( STA NX! it ; OLSBBO00 
IF INX EQL O CR INxX “GTR “BEDSTK THEN &@ & > eh bh Eh HH BB &B 01589000 
Sx*¥ ae STACK i ‘BE DURE ED IS NOT IW ThE BED. wE CURRENTLY DEAL WITH 01290000 
STLHE 0 W 0 NOG 
%1« NORMAL STATECN. Se) STACKS NOT ASLEEP 01592000 
wee CONTROL Ae te $.) SACKS NOT ASLEEP 01593000 
’ RR KA See a ee TT ONE 6 Ty > Y/Y OL Ao ee Eeneedd rare en 
4 B) I STACK CIF KOT ASLEEP) 01245000 
a Cc) STACKS” BELCh THE FENCE CSTACKG» SPACE STACK) 01246000 
z D HK 00 pot an EE eat A ee Ae 
% FOR NeSe STACKS WE PRINT THE wORD AT R#is,CuTBACK TO THE 013598000 
BLAST WORD OF "33"S>s PRINT THAT WORUs CUT: BACK FURTHER TO ELIMINATE 01399000 
TA K : AO A, al At ID A Rif ROM A Mi R A 0 O00 = 
% Tus DUWN TO BOS, 01601000 
% fe Lae IN TERRES STACK fa DUMP FROW Cir? DOWN TL PRTIBASE 01602000 
3 R n Papeiarrer ronan © sr oc UG teen ee a on a Rel ree geen en 
STHEN. cuT "BACK FROM PRTBASE*! TO THE LAST WORD GF “25"S 01604000 
%ANO THEN | DUMP FROM THAT WORD DOWN 10 @100- 01605000 


OLR ALN BALK O THE -L M) ER j nes" A NL 


PRINT FROM THAT WORC OUWN TU THE BASE OF ISTACK « 01°07000 
% FOR FORKED STACKS AND STACKS BELUM THE FENCE WE ELIMINATE 01998000 
S2STACK A H OPs OHTAIN A LOwER TOS «NU DUMP FLOWN TO BOS, 01909000 ett sty. 
% ESR VIRR ERE ERS ERKRRKEERRELHRESR EKER E 016010000 
BEGINZALL CASES OF NON BEDDED STACKS 01611000 
NORMA R AL a a 016 ofe 
BEGIN 01013000 
WRITE CP (OBL J+ TTEMZOCTAL( TUS)» 01014000 
OcTa HA O05). tA HALF jo O16015000 ee eae ery 
" ")> 01616000 
TOSs=TCS"13 & PT aT 33"5S GR 25"5 01617000 
NDS SS sat eA a a Oa Cre es er, So ee 
IF CONTROL AND BUS#O4 THEN &@INTEKRUPT STACK 01619000 
FOR TOS%=t27 STEP@"1 UNTIL ACTUALPRTRBASE DO 041620000 
BEGIN begs OPO SL O00 ee eiaaen AES 2 
WRITECLINEL*® Je INTSTACK* OC TALC TOS)» 01622000 
OCTALCHIHALFCTOS) )*GCTALCLUHALF (TOS) ))3 01623000 
MBVECXNAMSCXNAMECTOSI «CF JeLINELS )»XNAMECTOSJ FF OS 01624000 ae 
WRITECPCObL J] »8>LIwe(*I 2; 01625000 
ENDS XTQSSACTLALPRTBASE*1 AT LOGP XIT 01626000 
ZTHE FOLLOWING APP : 0 HE STACK AT 6 ANU | ACKe?) NeSe ACKS 01627000 aes ae 
SKIPEEE! 01628000 
IF OPERANOCTOS»V) THENRGET Kid OF nagns GR n33ns 01629000 
CVe" water ee ee 323.) AND NTKG 01630 oe, 
QR CCVE"LELE™S"ELEL "ELE 254 @€3]) AND NORMAL) 01631000 
OR (VFO AND JUSTBELOWTHEFENCE ) 01632000 
HEN W FEKANO se1,K) & Rey DO TOSssT0S5e13 01633000 _ 
IF CONTROL THEN 1F Pee: THEN. 01634000 
if Rey THEN. 01635000 
“FOR ItsTOssTOS71 QO 01637000 
WRITE CPLCOBL J» I TEM*OCTAL CI) »UCTALCHIMALF CID)» 01638000 
bel we " * " 
TOSteTOS23 01640000 
01641000 


GO SKIPEEE; 
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LEAVE TOS POINTING AT The LAST WORLD OF "25"S OR "34a"S 01643000 
ZFINISH OFF N.S, STACKS NEAT 01644000 
i RMA al Na AD BO Oe ef Athen ask ante; 
BEGIN 01646000 
pita aia ana ITEMeNCTALCTOS +» OCTALCRIHALFC TOS) )» 01647000 
Q TRIS sw ch 0 OPA ec eee rar eee tee SOE 701 1, eae ar ee a oe 
TUS2STUS*13 01648500 


IF FALSE THEN # OMIT TRIS CARD FOR LESS STACK(NS) 01648600 


ADS H 
IF PRUNUNK(CTOS*BOSeW) 


01650000 
THEN TOSt sw} 01651000 
NOs 2 TING New TOS eee 2 ee 

FINALLY FINISH OFF C,Se STACKS 01653000 
IF ea liess TREN IF FORKED THEN 01654000 

0 Ose 0i Tare = SeTOori ee eer eee SS E> Ho a CE 00 Meee BR OI ea ead 
ENDS OF NON“BEDDED STUFF 01459000 
asp 01660000 

BN a nate ae ee ee 8 OO 00s =. am ‘ 
WRITE(PLOBL 1» Se0CTAL( Vi BCSTAKCLWAI.CFR1))> 01662000 
OCTALCKIHALE CV)» 01663000 

be ee PN NA De ee 000: reson ee ry 
OCTALCV=2)> 01665000 
GC AUC ESU TT ALE Vey) > 01606000 

: Hi= Ve ; 6¢ i tt Se eco ae es 
TOS2=TOS+43 01668000 
IF QOCTAL(R. C24: o1)s"7an AND CUNTRULUESC CV" t+V) THEN 01669000 
HIN (MUPROG ONE OO aS a ne ae eee Bae 

BEGIN 01671000 
WRITECLINEC ¥J¢Co"CONFLE"s "X SLEE"/"P AT Me 01672000 


‘ 1673 


MOVE CNAMSCNAMELSEG]< cea LIWELZ I» 01674000 
WAMELSEGI].FF)> 01675000 
W (PL OAL] sos Inet *J)3 0167600 ota ee es 

END 01677000 
ELSE WRITECP OS 01678000 

OL OT 9O0O Bre ean ha 
TF Dagee =g TREN BUS: SMAX(QeTOS*( LF NORMAL THEW 01080000 
MAAAVRGRS Obes BLOE 128)) ELSE 01680500 

IF BOS >TO K JSt=MAX( Qe TOS*CIF NORMAL HEN ates Bates as Oot Way Shek eat 
WAXSTACKSIZE™ 1 ELSE 1993 01681500 
IF TOS*BOS2MAXSTACKSIZE THEN BOS2#MAXC Os TOS*MAXSTACKSIZE@1)3 01682000 

OB LEM F og; shies, ia 
IF MYSTACKADR >0 AND MYSTaCnKolZE=0 TREN 01683910 
IF NOT MYSTACKNUMPEQ THEN 01483920 

IF MYSTACKADRSTUS THEN 01683930 pees 
OIF OMYSTACKADR >80S THEN 01683940 
MYSTACKOUMPED: sTRUES 01683950 
R sTOS STEP = NTJL BOS DO 01684000 aT 

BEGIN 01685000 
WRITECPCUBL Js IT TEMsUCTAL(L)» 01686000 


em! 
= =a az. 


OCTALCLESLOHALF(L) Do" "ya 01688000 
PROLR@1; 01689000 
A i SF AL SES OLOBP1O0 
FOUND2SF AL SES 01690000 
Ls=LeCFs 01691000 
ONTROLVESC ANU XCF GIR 0 AND 01692000 
X,FF GTR BOS AND XeFF LSS TOS AND. I NEG [¥ THEN 01692100 
BEGIN es 01693000 

AGAINE: . 04169350 


ieee ee a ee ee: 


ee5rveeoeoeeeeeeees5»wolseee 
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IF FCUNDt= 01074006 
WITHINGCMCPRUGs AAKMCPROGsLeCFeSEGSADK) AND 01695000 
RUD THE fy posi oe oh phew SOUOY 6000 os it 
BEGIN 01697000 
WRITECLINEL & Je Co "MCP SEs "GMENT so" aT "yp 01948000 
MCVECNAMOCWNAMELOEG] CR JoLINELZ 1], 01/0000 
NAME LOLGJeFR)S vi7VloOCcE 
iN Pe Se ne Se eS sere © LN ACW 9-11 OO © Reem ree eae ee co eee 
ELSE 04703000 
IF FCUNOSEWITHINCOUTERBLOCK s+ Ooh CRs SEG» AOR) THEN 01704000 
WRITECLINEC*) see "MCP Oot tye e"OC " AO EO 0 ae a sk 
Ox OesUCTAL CL) ole, L34i2)) 01706000 
ELSt IF NORMAL TREN O1/7U7000 
B ave Se = 
IF FCUNC SENET ees eee EN TS ne Ge 017080006 
SEGsADK) THEN 017081400 
AK ga se ie A I 01709000 Fee Recah Se ae ha OE ee Ne EECA 
WRITECLINEC RS eo Co™INIRIN "SIC NU"s"MBER "Sy 01710000 
CE TALC SEG AOE GUC T PCCAUN AD Rah e C34%2))3 01711000 
NAM i L ad N , OT A000 anEENE 
INAMELSEG) oF F)3 01713000 
END 01714000 
ELSE : . 1B N00 eee ee ee 
WHILE CRROS=PROU41)SPrKh0WwS ang NUT FOUND oO 01717000 
IF FOUNUSSAITHINCRROGSCPRGs* J ePRUGSEPRO2255)>» . 91718000 
re AUR: pes ee EO FEO Oak eo eg he A OS tet 
WRITECLINEC#¥] sCeo"SEGMEN" es "T NUMB" SER “, 01720000 
OCTALCSEG) »SEGsUCTALCADR) sAURs&,C3432))3 01721000 
NOg a BBO pope ets 
END ELSt 01722500 
IF NCTCF OUND Ok pea re AND NORMAL THEN 01723000 
k 13 AN tijs f¢ 
TREN % POSSIBLE COLE COVERLAIO) 04725000 
IF FOUND:=C(CCY%sX,FF2 GTR BOS AND 01726000 
_yUSS PANDO ee EOP BPO oe ep at 
CSEGISXeCF) NEW YU AND 017dé8000 
SEG LE& 1G2¢3 AND 01729000 
UTD SCC ye RD) 
THEN 01731000 
BEGIN 01731100 
= 6 200 AE) usb < 
IF RKCOKORUNHOOKING THEN 01731500 
IF TCS GTR O AND TUS GTA LOCIRCW TREN 01731510 
BEGIN a 20 0 0 meee 
RECYCLINGSSTRUES 01731530 
G0 AGAINS 01731540 
: LOSES ANS) are a A ee EO 
WRITECLINEL* Ja Co"SEGMEN" es "7 NUMEMe"E RO) My 01732000 
UCTALCSEG) pSEGrOCTALCADRP FRG CE) eADRe Xe l10%2))3 01733000 
NOs 04733400 tl EN hte seas Sh a Tl tue 
IF FOUND THEN 01734000 
WRITE CPCOBL] 2 10*eLINEL JF 01735000 
A O1730000 a ee: 
ERROWT? 04737000 
END DUMPING A STACKS 0173800G 
P RE. DUMPSPACES H : aes 
VALUE INX3 REAL NRT 01740000 
BEGIN ; 01741000 
FORMA wOCX Be "THIS BTACK..1S. A SPACE STACK «TT LINKS "2 01742000 


wl 


dal 


vata vocuments/inc. 


y E n Th Ry x. 3 


e @ “gt 
AEE 


"OIRECTLY TO Tre AtXT STACK PRINTED. *)s 01743000 
NEXTITEMS 01744000 
PE OB SSH )3 eek: : is Sab ee A a Se 
DUMPSTACKCINX)3 01746000 
mi LIN asc eralanay 01747000 
NL) PS ACK; wot ota oe OTA OO Oia ts ante he eo Botan Sasson, 2 
INTEGER BaUeeDU GE SPREADCAT oF» on 01744000 
VALUE AT3 01750000 
RA Seetiatt ah aa a ae et ee, ns pe 
BEGIN 01752000 
SPREADSSCHRSCHLAT,RUW* AT ¢COLI9023)5 01753000 
= SCHR CAT ROWsATCOLJe eS) CFR FO 
FosPaFF3 91735090 
END SPREADS 01756000 
PRO aYels M GRAMS» aera ene ED OA ERY ey NY A © © Leno ne tec 
BEGIN 01758000 
INTEGER MIX*TYP#PRIHsPRIF eo Hs Fe CoFP Bs SDs alts Ss 01759000 
, BS a ae ae er Be 
INTEGER A; 01761000 
REAL JAROQO; 01702000 
REA STARS ROG BOOLEAN ‘a , (6: ahha 
FORMAT HDC ASe" & "es hOseCK19 AD) PXSr ALOK 1 9 ¥AG DD 01704000 
BS APS aac nse a a MIX & 9] 2)3 01765000 
i a 6 & a i : j Be te Shh Lk Fe eee he a 
REAL SEGS»SGM; C1767000 
REAL SEG#ADRs Cifoscod 
ARR A STul a: ww ac ee Coie aE eg EY 
FORMAT SEGHCXAas "PRESENT PROGRAM SEGMENTS @& INTRINSICS"// 01770000 
SEGMENT SIZE AT THRU TYP INT # “//)» 01771000 
INTSEGC ABS Ad4 eo XL AL PAI Xr AOeX2rbcr KG eA3)s 01772100 
PDCASs" = “"sAGeX1LeSLASe KALI a» Re"sAgot ys +" 5 A4)3 01773000 
ARSt atk ee et A tiR lis ARS of ; ‘ 4774 oe ho es te nd et a 
IF PDATADESC( JAR* JARO) THEN 01775000 
JAROSHUARO.CE3 01776000 
PRIOKS2PNATANE PRTeP ; “HEN Q 000 eae Nite et ae I 
PRTH®S SSPREANCPRISPRTF sPRIO)3 01776000 
IF PRTO?>Q AND CSQCK? SPDATADESC(SW*TYP) AND TYPSs7YP,Ck>Q) THEN 0177900G 
OR MIX¢s ; X MAX O1/ 80000 Se en pe ee oe ee ze 
{F eneuices QR ONEMIX=MIX THEN 017d0500 
IF CREZTYP #MIX) GTR O ANU UJPERANDOR*®R) AND BOOLEANCRe£L181IJ) AND 01781000 
R#0O. AND (RiSR R$61)463 AND la-¥ ee a atone 
CR=0 OR R#1 OR Re4 OR RFS UR R216 UR R232) THE; 01/83000 
IF CHJOKORUNHOOKINGse(Rz0 GR Rel OR Re3)) GR TRUE THEN 01783100 
PODATADESCC(PRTOQ+M R nde 01784000 Pe nace, bos 
BEGIN : 01785000 
REXTOAGED: 01786000 
Eo * eMIX)3 01787000 sre ests 
IF JARO x0 ane DE SCRIPTORC JARO+MI X» JAROO >» F) AND Fel 3923985 01788000 
AND. VAROCO,CF>0 THEN 01789000 
B N —_ Q1790N00 ee eee rere Seen 
MOVE CMECASSJAROO) ROWS A, COL Jods 01791000 
; LINELO]+19007)3 01792000 
MO (AAPBAT ROWsA,COL Js > 01793000 eae 
LINEL3]919097)3 01794000 
END 01795000 
ELS Ss ae OOO a re te nt eli 
BEGIN 01797000 
ee) net vee eeced! eG rsa 01798000 
MOVCC STARS? 1 3lete Oe? 01799000 
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BBB SeESE BE 


ENDs 0148006000 
hl oes Be aa aca 61801000 
WRITECP shoe 01803000 
Pe ons 01604000 
AL CPR CCTA RTO), come = ao, 
pasar ") 018v6006 
eee 01807000 
, x x ree ne PaeR eG 
TF Fao THEN ew ELSE Wats 01809000 
JoM™PRICMIMe"Xek] > “NO"CKFER My 01610000 
0 £1 ¢R Be Be ards ort te ee ee OY BE Oe ae ee ee as 
OCTAL CHI SSPREAD (KR 4+30F sF PK) ),O0CTALCE )»OCTALCFPB)» 01812000 
It UCTAL Chel 30! o)])="20" THEN ™ " ELSE "Ne", 01813000 
" a’ " wp B " : aims Va spb cova ioc fps melee sf ia scopes dys s. 
OCTALCR+4)» 01815000 
OCTALCHESSPREAD(R+ dsF eSODIISOCTALCF),OCTALC SD)» 01816000 
A ‘ aN cit ci of : : tt yer eee OPE LTOO0 <0 ne eatin Rnetoontnsa chs, 
Ae Rein S*e"EGMEWT™ OS” DICTINs"ONARY "5 01818000 
OCTAL CRO)» 01819000 
0 Oi cris SPRE AU ck se: p : OL 820009 6 ee Foe et ey 
IF BCOCLEANCH-CL3I0F1I]) THEN * © ELSE teat, 018¢1000 
2r"R+ b>» Ave" TT ", 01822000 
OCTAL (Hie SPREAU(R+7aF eC) 0CTALCF Do CCTALCC)» Ols24o0n 
IF He C3u 2j=3 ANU ‘Fecn AND C=0 rae wom ELSE Met, 0184¢5000 
"i “Hit, bP Rp OTA OOO Sn ee ee Se 
WAS FAMS"LSE "ys 01827000 
OCTALCR+8)» : ; 01428000 
OCTAL CH SPREADCE : OCT 0 0182900 7 ee ohiets 
Ws 01830000 
2e"R+109 “s"INCH “ys 01831000 
a R+9 018032700 
OCTAL CHE sSPREADCR+9 oF pC) eOCTALCF eGCTALCC)» 01833000 
IF H.€32:16]=0 AND H.030% 1]= U AND ee 0 THER woMW ELSE "x, 018349000 
a ec tn Dd i se eS a 
"CATE OK"S" PRUGR"» "Ale REL" s"EASE 5 01836000 
OCTALCR+102)» 013837000 
OCTALCHSSSPRKEAUC K+ Ur 500) Do OCTALCSIsICTAL(C Qs 01638000 pes 
IF OQCTALCH.,£30%6))S"50" aND S GTR O AND R=C AND Rel GTROSts5"1) 01839000 
_ THEN " "ELSE IF (€8380)50 THEN “*" ELSE Mets 01840000 
WR » th, ft =z RM", (] Lan "OF 4 “eS ACK" 3 018 N00 oe 
IF CUNTRCLOESC(R+A> H) AND CLUCIRCW!=heCF) GTR 1024 01841100 
oie HoFF GTR 1624 TREN ELSE LOCIRCWIE=13 01841110 
IF GTeDELVIRA OD LSS 0 THEN 01842100 
BEGIN 01442120 
T er “ : 11842140 sos 
WHILE CAS#INTCDECMIX*RP&ehkP+1 ji) WEQ G LU 01842160 
IF A LSS O THEN 018642180 
BE 018642200 a 
WRITECLINEL tJ ,INTSEGPOCTALCALFFOA,CE4+1 D> 01842220 
OCTAL CAs CF )sOQCTALGA, FFRSGCTALCES D+ 04842240 
e A t= i ! 
IF & LEG INTMAX THE 01842280 
MOVECINAMSCINAMELL I] -CFIJsLINEL 5) 51NAMECLISFF)3 01842300 
WRITE (CPe8e-LINECeI)S 01842320 a 
woes. ENDS 01842340 | 
END} 01842360 
PROGSCPROWS isos 2551 2FPCULeer ts. 01843000 
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IF POATADESCCR+4sS0) THEN 01844000 
IF OPERAARCSUSSS0.CFeSEGCD) AND SEGS.0C1837)=0 THEN 01845000 
BEGIN ie gre ie ee eT et OF, Eo S015 0 6 eee ere DEE ee ae 
IF INTCUOECMIX20j) L55 0 THEN ELSE 01846100 
WRITE CPeSFEGH)3 01847000 
IF GPERAND(SD+SEGeSGM) aN 01849000 
CAURS=OGM,FFI>1GE3 THEN 01850000 
Be a a a a se SO ane 8 
Sizte 01852000 
TF COPERAND(CADR@15512) ANT 018653000 
31 SE GR er ee ee ORSON a ee 
COPERANGCADR@*19S12Z) ANU 01656000 
OPER BNE CAURS ace AND 01857000 
" 3341s AND f H =. An al £4 NEO 0 AND... ss OT ASB OOO. pea epee a ea 
S1Z.C8310}5 SGM cr > TREN 01859000 
SIZ.FF ELSE 0; 01860000 
—BOOLEANC SGM Lert jo Fee mB TOOO 
BECIN 01862000 
L3=SGM, UF 01863000 
SPECis= i —Opnesoog eee, Cee rt es 
FOR Jt2Q STEP 4 UNTIL INTSPMAX DO 01865000 
IF INTSPULICRt¢0)}e, TREN 01866000 
Ir Lal? THEN S[2Zt242 018607100 
SPECS#IKUE> 01808000 
LNT Me hOB 00. 
ENDs 01870000 ; 
PRE TECEITECS pobebei le OCTALCSEG)» 01871000 
OCTALCAUR)¢ IF 312520 THEN STARS ELSE 01872000 
OCTALCAUR+S1Z"i),TF SPEC THEN 7 ELSE 1, 0187 3000 
LA 1)3 foW, 00 
IF L LEQ INTMAX THEN 01474000 
MOVE CINAMSCINAMELL J. CF }sLINECS)+INAMECLIeFF D3 01875000 
AR O x 876 ocd nt oe Selle ag Oe ens teeter hat tas; 
END 01877000 
ELSE 018786000 
nN 879900 ne: TE nA ee 
IF CPCOL%=PCOL 4195255 THEN 04880000 
BEGIN 01881000 . 
___PROGSEPRUWS»255)¢82545 zoo 
PRUWStSPROWS+13 014483000 
PCULt=05 016864000 
ENDS 04885000 a eae 
- PROGSCPROWS+PCOLI 38 01886000 
ADRS 01887000 
_ CTF S1Z20 THEN 9 ELSE AGR+SIZ=49018233%15)8 01888000 Ease ee 
SEG(L8238%40)3 01889000 
ENDS 01890000 
ND; 891000 es date gee 
IF CPROGSTPROWS»255)$aPCOU 320 ees 01892000 
BEGIN 01893000. 
OR ROtsO STEP PROM hE: HOO enue 
er OUENC CROC cIaU, Cisenocctau. desta 01895000 
SEGStsPROWS +13 01896000 
‘R_ 3:26 STEP y) L PROAS Ou Bags ee A OO a et et 
BEGIN 01898000 
SEGS#=SEGS+PHOGSET» 25535. 01899000 
STDC LI s03. a See 041900000 
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ENDS 01901000 
FER SeEGisi STEP 1 UNTIL SEGS OC 01902000 

ona nN i eee ( nt ad he Fl A 
RQts0$3 01904000 
IF PROWS>0 THEN 01905000 

. (LR tJ i PRUWS 0) 
IF LSTOLRNI=#255 UR 01907000 
CLSTOCIU<S255 ANG 019U8000 
THEN 01910000 
ROt=I3 01911000 
: OCTALCCSGM% SPROGSCRO»sLSTOLCROIJ).08%10)])501913000 
[F SGM,FFSO THEN STARS ELSE 01914000 
AL (SGM "SGmec BOT S000 en se 
UCTALCSGM.CF 2» IF SGM,FFSO THEN 01%16000 
STARS ELSE OCTALCSGMeFF)e1)3 01916100 
eis Ol+13 
ENDS 01918000 
ENDs 01919000 
NOG Fe pee a a aS a TO pla a a td a 
IF CHS=MIXSTKOMIX])=0 THEN BEGIN 01921000 
STAXCOJ*=(R=1) & S CTF @ 1L784784] END 01922000 
= N al A a! M4 x : =Os. . weuisise ‘: ee ne Oe Bo ee Fr ie FOO): 2 Zz Stas a ET LS ES es EN ee ele I STE ES A PSone 

IF H=SSTACKINX THEN DUMPSPACESTACKUnseh)3 01924000 
IF STAXCHI]+FFSO THEN STAXCHI] eFFi E54 END? 01%25000 

Mr AVACLR ; _t—( (i ‘ OOO rere 
HOOKGRUNHOOKINGS =F ALSE3 01926100 
ENDS 01927000 

Pe TOK i () 0) KK 4 —_O192s000 — 
FOR MIXte4 STEP 1 UNTIL MIXMAX 00 01929000 
IF Ht=MIXSTKCMIX]40 THEN STAXCHI1 6072 11350; 01930000 
ND PING NORMA ; iA ; 
PROCEDURE DUMPCONTRULSTACKS3 01932000 
BEGIN 01933000 
ORM A nh(X¥Re "CH RO STATE Slacks" 3 O19 34000 
REAL VeReAols 01935000 
LABEL LOWsNUNEsOUMPI[TsdUTs 01935100 
Il R Ke kK} ARRAY MCPSTLIL4 3 0193600 
NEXTPAGES 01937000 
Be eee 01938000 
; RA 01939000 
UMESTRCRCON: 01940000 
NEXTPAGE3 01941000 
NON QP ANDCWCRKERSTACKs & AWD R>PR' ANY FE ok 0195200( 
FOR {226 STEP 1 UNTIL 2 DO BEGIN: 01952100 
MCPSTCL]#=(R+127) &@R CTF & ALS8478493 01952123 
"L30 "i N al a. i= 
R&=R+128 END; 01952150 
lt=I-43 01952160 
ald ABO (] a A RK RS A al A TwQ ; i KG H KS BR a 6 by ¢ OO 
% PRESUMED TO BE 128 WORDS LONG AND CONTIGUOUS. : 01953000 
IF i his ale AND ee ete ANDO CR&sReCF)>0 THEN 014955000 
°K: Lad ae ) O00 
z Stack 01957000 
4 NOW OUMP gut THE BEDUED STACKS 01958000 
a a : 

IF NOT BODLEANCCRERSTAXT INK), tviad) THEN 61960000 
01961000 
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BEGIN 014%63000 
DUMPSPACESTACK( Ke K)s REFSTAKLOI], CR 423 014964000 
ND 3 14905000 Mette Sth! a, 
IF R2PRTO AND VFENCE2R THEN 01966000 
BEGIN | 019607000 
JR As=Q L_ UNTIL fT 00 : = 01968000 
[IF CVtSMCPSTTAIJ) «CF2n AND R>CVPSVeFE) THEN 01969000 
BEGIN STAXCK],FFisva 01970000 
ACP > Al:=0; 30 TQ JUMP IT 3 O19 000 
ENO; 01972000 
' ViesPRTOs GO TO BOTs 01973000 
NOG Sas COZ HOOO 
IF STAXCKIeFF = CV#%=Q0) THEN 01975000 
Bots STAXCKI] SFFESIF RCWMSCWSLARCHORS2*VeR) THEN CROPL) ELSE Of; 01976000 
DUMP H MPSTACK(K), poceteiee ogee ONT OA PO Oo poten es ® 
END; 01978000 
% MOVE UNBEODED mcP STACKS Td MCP List 01979000 
ACK INXs BLE IN A ACK NOT UDEMPED 01980000 
IF UPERAND(SPACESTACK» V) AND VeCIl83de2)]#90 THEN 019891000 
ee CVEeVeCF) GTR aie AND V Les ee THEN 01982000 
ae lez 0198300 ms 
FOR AssQ STEP 1 arte I ry: 01984000 
IF MCPSTCAIZC THEN STAX(MAXSTKS=MAXSTK4121=MCPSTE AI} 01985000 
LL iA = * fy! ai. ‘y ¢ H 6 OO 
§ BEGIN 014%87000 
: DUMPSTACKCINX); 01998000 
S NI: on HQO0 ae 
8 IF NOT MYSTACKDUMPED THEN 01989500 
2 LF. MYSTACKAQR >U THEN 01989510 
Q B NS 4 f Dim (Lr. 04989590 
STAXCOJSSMYOTACKADR & 01989530 
MAXCOsMYSTACKAURS1= | 01989540 
~ MYS sCK OZ # MY ACKS a O00 9HY550 
P 1(424784]3 01989560 
@: DUMPSTACK (023 01989570 
p ht A K MIP sea 2G: : ¢ cs f 
ENOs 014469580 
@° END DUMPING CONTRCL STATE STACKS} 01990000 
i Glad: OR K Ky LAP r PARAMS 0) ‘ Q 
P PROCEDURE. MEMORYMAP3; 01992000 
BEGIN 01993000 
: RY ARO 0 QC TOz ee 01994000 
INTEGER MIXeITsAsSTARS CHUNKS, 01995000 
REAL PRIX» SQXsSaCIXrJARXe VAs O19¥6000 
———ROOLEA AROK Ks SAOK NG» A Rh» 5 O1%4700 
FORMAT BADPRT(X1» 129X380A1/)4 07998000 
ae SKIPC/)> 01999000 
* ¢ vO C3 O © 
TRISKLP(///)> 02001000 
MUSE CA he T2sX9e Als K2urvVesrXorale XK cdl Xl eAleXl))» 02002000 
a "CORE ASSIGNMENT MAP"// OZ20U3009 
ee TLEGER(//X6s"LEGERI"/ ; Ta 02003100 
| kth tx 2 wish: 18 BELOW THE FEN EN 7 : 02004000 
M4 Ge" = JOB RUNNING WITh 3 NK La Ae 029005009 
X140"P = CHUNK POSSESSEU a A JUB BUT J0B NoT “aUNNING™/. °020U6000 
X44e"A 3 CHUNK ASSIGNED TO A JOB BUT NOT POSSESSEU"/» 02007000 
X149"" = AN ARRAY HAS BEEN CLUBBEREDCFRT»sARSUVe SQeCT)"/s 02008000 
Xtoe"d. 3 oe QF JOBS READY TO. RUN. “USING TRIS CHUNK" 02909000 
WCOTENT eL3O867 24> 020091400 
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"COTEN] eL4ds6))"//)» 02010100 
TOTROY(x202"1M s+ x2hs zd (X19 12) )» 02011000 . 
0 ett je i meer ites eoemmeee 6/721 © iy 22D 8 @ i Gere ee ee eae ae 
HORCUMIX" »X5e "JOU NAME" > XB» "USER" oX 39 "STATUS" a Xz0 02013000 i 
MBELOW X20 24CA2sX1))5 02014000 Mia 
MOMOK (CPR PRTO AN NC NEw O ANE NC ; 01=0 ¥ 079015000 bea ta acthaae domly hae rer 
BEGIN 02016000 . 2 
NEXTITEMS OzU17006 "@ 
*aAe mej fs O2Z01H000 =. Reeeatcn pesto A it Pete, 
CTOK! =MOMOK (CCT*CTU)3 02019000 
WRITE CP*MAP)3 02020000 '@ 
SGLINGI2TR _op020i00  ——Css 
DISPLAY CFENCE*FALSE) 3 02020500 
DISPLAYCPRT»FALSE)S 02020510 @ 
DISPLAY( JARS FALSE) 02020420 Seta tne ee anaes 7 
DISPLAYCUVsFALSE)3S 02020530 
DISPLAY(CT»FALSE)3 02020540 @ 
{} =F A “3 Qj O06 6 en ee ee EN I LS ST PT EAE PATER A CET | 
WRITECP*LEGER)S 02020700 tw 
WRITECPsTOTADY*FOR MIXt=VFENCE STEP 1024 UNTIL 31744 DO uzvz1000 @ 
KAN “Rah Li is Ta Dai U0 LALO 0 0 ee ete me ee a 
CTXe(3626) ELSE 100)3 02023000 
WRITECPs TOT ASG? FOR MIXtSVFENCE STEP 1024 UNTIL 31744 00 02024000 @ 
Ai A fh + 2D rib iy O2U25000 beard an tne ntal Sasa avidin s 
CTX. Cees oe 100) ARITECPs SKIP): 02026000 a 
WRITECPSHOR*FOK MIXt=VFENCE STEP 1024 UNTIL 31744 OU 02027000 @ 
ae ge ee ev 
CS&" 0 3684296)) ELSE S.C36tiZI)3 02029000 
WRITE CP*BISKIP)3 02030000 e 
AR OK ?sMOMGQK AR ARO); 0 3100 A Ele DAN Eta ine gate ot nee 
UVOK$=MOMOKCUV*UVO)3 02032000 " 
SQOK t=MOMOK (SQ? SQ0)3 02033000 @ 
= Ww ft QO: O00 eee Cee " 
CHUNKS$=1F CPERAND(CHUNKMAX?A) AND AO ANU 02035000 
AyC1842]s0 THEN MINC23¢A) ELSE 233 02035100 @ 
OR MIXes P N MIXMAX DO 07036000 rs 
IF OPERANDCPRTU+MIX*A) ANO AZO THEN ELSE 02037000 : 
IF NOT MOMOK(PKTO+MIX*#PRTX) THEN 02038000 @ 
WE PsRADPR x AR 07039000 ee Seas 
BEGIN 02040000 
RUNNING !=ABOVE t=F ALSE: 02041000 @ 
=SQ0K AND UPERAN SGO+MI¥ ' AND SQ@X NEG O 0% 000 a 
RUNNING; SCs eso nEER 61)316 AND SQTOGS 02044000 " 
INCORES=NUT CABOVET=CVFENCE LSS PRIX 3) GR 02045000 @ 
RB * AND SG > AND 2OMAO0D o 
($20 OR. $31 OR S34 OR Ss5.OR S216 OR $=32)); 02046500 ; 
WRITECLINEL #]»MUSE*MIXs 02047000 @ 
fF INCORE THEN "/" non state 0208000 ait 
IF SGTOG THEN "I" ELSE "A", 02049000 a 
IF SQTUG THEN S ELSE ™ #, 02050006 W“@ 
ABD é be N e iT yt () N00 40) 
FOR I%=0 STEP 1 UNTIL ‘CHUNKS 00 02052000 ks 
IF ABOVE sa 02953000 w® 
IF 1 LEG SOx,03010] THEN 02055000 62 
IF Il GEQ@ SQX,C3626) THEN 02056000 l®@ 
IF ABOVE AND CyOK AND 02057000 sai A hid & 2,4 Baetenste 
OPERANO(CTO4+1eCTX). THEN 02058000: val 
IF CTX.C30tG}@MIX THEN 02959000 | w@ 
R NING: PT AHER NRn % RUNNING 02060000 ease reste eases aah er ere Pati ed asec eles page. Sita, Sateen 
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ELSE "F™ & FUSSESSED 02061G00 
BLOoe "At & ASSIGNEL 02062000 
eee eer eS Ey > Shs RM 0" 8 Wa OOK On RN <r Pe ey eC 6 ES 102 © OE eae ale ee ae ee 
ELSE " " & NOT 02064000 
ELSE * " % ASSIGNED 02965000 
Peers Peas seat ALE Le sf ——--__O¢ZO066000 
cLSe " " & berOhw FENCE 02067000 
da’ 02068000 
Ar Ck Ni MOM ik ¢ AKU + 41 Xs Jak x) AND INCORE Tie NY CBU sc 
BEGIN 02070000 
MOVCCOMCCARESVARX) ROW PALCUL IJ > 1° 02071000 
LINELO)sSeO2f7)3 = 7 
MOVCOM(L CAP=A41LD AKUWSALCOLIJ > Le 02973000 
LINECLlsSeCsa/)i G20/74000 
AD Se se Ne ee ea 2075 eee 
ELSE IF INCORE THEN MOVCCSTAR»7>LINEL1) 24-021 )3 02076000 
IF UVOK AND MGMOKCUVO*MIXsUVX) THEN 02077000 
NCORE EK _—_ _O2Z078000 
MCVCCME CAL SUVK) eRUWPA.CUL I)» 332 02079000 
LINEC3I> Or007) ELSE 020060000 
: A N e2.0 ; 0% d 00 
WRITECP» t5eLINEL #333 02082000 
END LOOP: 020849000 
NDS sc BOR SOOO. 
ENU MEMORYMAP; 02066000 
STREAM PROCEDURE MOVE CS?D DeWN)ds VALUE WI 02066500 
B N | AB a a A he oe a OUI GS Ost 
SIt=S} ae =D} 020860524 
WCOCTF SCs "e" THEN JUMP OUT 2 TO EXIT # OS2eCHR))S 02086526 
5 : mij; 0 a a ae 020846530 
EXITSOS%=CHR3 02006540 
END MQVO3 02086550 
PRO DUR DUMPMCP O2Ue/0 
BEGIN 020H8G00 
ogee Healey TSsMAsMS el A» LSpRADRS oPASPSS 02089000 
M AGESSIOOHs 0 OND 
TEcER “TYP s SeCi 02091000 
BOOLEAN TANGUR? Has ahs 
AN OMS 7) 2s 00 
FORMAT SECA3»™ Be ™MHeCOe KL eXeb oh (Ms Da Xd elo)" )>» es10r000 
TERT er Bit "el2s” = "sTiats "sX28)e 02103000 
Pa rT) * - A " 4 ok * ° 
ARRAY T8L0? 14633 02105000 
REAL UAsUSslAsI Sok AsFS3 02106000 
FORMAT UNCA3)» 02107000 
LQUEHOR( NEL *aX20 "I QQUE- INDEX", X2e"DLSK@ADDRESS")— 02107100 
BADLQUENTRY(A2," # BAD ENTRY [8S "seCOeXxXt))» 02107410 
BADL@UVEC"## TH Ql. 1S INCORRECT™)s.. - 02107120 
FLQUECA2s X6sA3sXBr ALP AG)» 02107130 
eee NO EN Tee IN THE LwlE de 02107140 
XL pASPX1 pA2y X sAl eX] Aer xXisA3)» N2108000 
oy "BECK. Xie Ade Xr Aao KAP AGI MAS AES : 02109000 
PYCALsXis Abe X rex AS eX1e AO )s 02110000 
TOATHCXE NS OF WORDS IN THe 1/0 ASS TGNMEN Ag " ‘ 00 
XBe"TINU"/ 02112000 
Xt2e" (CCr3uts 02113000 
A u J HARDWARE WN N AK RNS Oz 4QQ 
co oX¥L2e™. CB8al"s 02115000 
eae X129"2 Liat] POWER OF 2@"/ 02116000 
ok {et6ej"s 02117000 
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X129"3 (2421) INSOs GUTFAL"/ 021128000 
X125" Cesioje/ 02119000 
x us B NIT MNEMUNTOMSA£ 0 AA OOND 
XBe"ROCTABLE'/ 02121000 
—XL26" [oral 02122000 
"4 car4) id IX gS " " sti 
X129"2 (14310) REEL NUMBER" / 02124000 
X{2e"3 (24217) CREATION DATE" s 02125000 
¥ ” a " “ JANNOD 
XBe"PRNTABLE"/ 02427000 
X20" COLI 02128000 
ve NF r RING PRESENT ™Y 02129000 _ 
Xtee™" (Cas13y 02130000 
Xd2e"2 C1915) ADDRESS uF TOP 1/0 DESCHIPTOR"/ 021341000 
¥ " a a HY S A KEE AER Q 32000 
"LUNs X68 02133000 
"TINU' s xXZ4> ; 02134000 
wi ‘i: ae 0 35000 2 
"LABEL TABLE a x4» 02136000 
"ROCTABLE"»X24»s 0213/7000 
WOR AR t eS Se a I BOOK. — a 
XOs 02139000 
XAaML ae KGa M2 pe XQat ste Kde "Ge Xb» 02140000 
x X14 ce ee ee OP TNT ONOS on. 
XA a X22 rp KU eo" 3% a XSe" YD XBe 02142000 
X21 XT eee KSa "3" eK DOI5 02143000 
BO AN PROCEQURE TRIFYCWHATsAe,S)3 0 ALAND 
VALUE WHAT} 02145000 
INTEGER WHAT; © 02146000 
RE A As S O: 7000 
BEGIN 02148000 
DISPLAYCWHATS>FALSE)3 02149000 
{= 5000 
PDATADESCCWHATsA) AND 3 02151000 
(S%24,(082103)>0 AND 02152000 
B we ) A ALL _. O2133 (erere) 
CAtS*1) <4 AXCORS 02134000 
END VERIFY3 02155000 
RMA 09 " ; ) wWORUS IN The C™ QUE TABLES"// 02156000 
XBe"UNT TY 02157000 
X20" (Or. I"s 02158000 
” 59 
X12e"2 (5:8) ERROR FIELD'S 02160000 
X142e"%3 C1381) UNIT NOT REACY"/ 02161000 
x Md H RRUR FLAG" Q21602000 
X120"5 (1531) WAITING FUR AN 1/0 CHANNEL"/ 02163000 
X120"6 £1632] 140 IN PROCESS",s a 02164000 
x " S315 NDEX OF FIRST 0 REWGUESTS/ 
X120"%68 (33215) INDEX OF LAST I/7Q REQUEST"// 02166000 
XBs"LOCATQUENS 02167000 
Xj2," C:3] = 5s DESCRIPTUR F TS/ 02168000 
Mt2e"1 (325) MIX INOEX"/ fone 02169000 
X120") Casal, er Se ge 02170000 
X12," 26 OGICAL UNIT NUMBER" O21) 00. 
X120"3 (18215) INDEX OF WEXT I/U REQUEST" 02172000 
X120"4 033215] ADDRESS OF [4G NESCRIFTOR" +, 02173000 
A NiJ_ fp were se Be ee ee eS OOTP AOOO 
TUNITT@ se X348 - a2 o 02175000 
"TOQUE" X19¢ oe 02176000 
 OCATO We X24 pe : oe : ; 0 00.0 
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SROUTERG SHE RKO? VOoXT® ZC AL + KL)» 2C AZo XL)» 02206000 
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SQHD(XB8s"FLELDS QF THE WORDS In The SQt"//,xB,"SQrs 02207000 
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2Xler" 2$ "4 O2208400 
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